4.5.1.3 (d sin)^n (a+b sec)^m.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    238868,       4386]
NotebookOptionsPosition[    233691,       4250]
NotebookOutlinePosition[    235456,       4304]
CellTagsIndexPosition[    235413,       4301]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.5758553923824325`*^9, 
   3.5758553923824325`*^9}, {3.5758554525725164`*^9, 
   3.5758554525725164`*^9}, {3.5758555750526876`*^9, 
   3.5758555750526876`*^9}, {3.5758556596228065`*^9, 
   3.5758556596228065`*^9}, {3.575855725612899*^9, 3.575855725612899*^9}, {
   3.575855810993018*^9, 3.575855810993018*^9}, {3.57585588373312*^9, 
   3.57585588374312*^9}, {3.5758560310833263`*^9, 3.5758560310833263`*^9}, {
   3.5758561273734612`*^9, 3.5758561273734612`*^9}, {3.5758565422515745`*^9, 
   3.5758565422515745`*^9}, {3.5758567480518627`*^9, 
   3.5758567480518627`*^9}, {3.597105294762822*^9, 3.597105330137873*^9}, {
   3.625701018598903*^9, 3.625701019258904*^9}, {3.6773587094543767`*^9, 
   3.6773587094543767`*^9}, {3.6800416949154644`*^9, 3.6800416949154644`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545066651861928*^9, 
   3.5450666715919557`*^9}, {3.545067018472441*^9, 3.54506702505245*^9}, {
   3.5450672112627115`*^9, 3.5450672142727156`*^9}, {3.5474153416867237`*^9, 
   3.547415342965926*^9}, {3.575327678898259*^9, 3.5753276798782606`*^9}, {
   3.578688109525468*^9, 3.578688109745468*^9}, {3.5791314039196434`*^9, 
   3.5791314043496437`*^9}, {3.5970233602803164`*^9, 
   3.5970233606547165`*^9}, {3.602029453182803*^9, 3.602029453422803*^9}, {
   3.611960802461655*^9, 3.611960802721656*^9}, {3.6155071018281007`*^9, 
   3.6155071023881016`*^9}, 3.615507355198455*^9, {3.615507666678891*^9, 
   3.6155076666888914`*^9}, {3.6240635683046503`*^9, 3.624063571339655*^9}, {
   3.624064220709572*^9, 3.6240642213195724`*^9}, 3.624064257535624*^9, {
   3.6240662943845024`*^9, 3.6240662992245092`*^9}, 3.6240664735447583`*^9, {
   3.624076720043745*^9, 3.6240767390621786`*^9}, 3.6246510551183367`*^9, {
   3.6247385576502986`*^9, 3.624738582132699*^9}, {3.6247388448707266`*^9, 
   3.624738863743806*^9}, {3.6247389043281274`*^9, 3.624738904943163*^9}, 
   3.624739984733923*^9, {3.6249040774829507`*^9, 3.624904108159175*^9}, {
   3.624938229294053*^9, 3.624938263003981*^9}, {3.62498901238396*^9, 
   3.624989055611636*^9}, {3.6249915281481905`*^9, 3.624991528491391*^9}, 
   3.6249923628265963`*^9, 3.624993674164034*^9, {3.6249937105024977`*^9, 
   3.6249937147457056`*^9}, {3.625007732002015*^9, 3.6250077485450444`*^9}, {
   3.625009022509804*^9, 3.625009038517432*^9}, {3.6250150936430397`*^9, 
   3.625015134329911*^9}, 3.6250166270427094`*^9, {3.6254194422844687`*^9, 
   3.6254194425344696`*^9}, {3.625420774632717*^9, 3.625420797362749*^9}, {
   3.6254208634428415`*^9, 3.6254208840028706`*^9}, 3.6257019053106723`*^9, 
   3.6800398425275135`*^9, 3.6800417875497627`*^9, {3.6800419497990427`*^9, 
   3.6800419502710695`*^9}, 3.6800426811828756`*^9, {3.68004286447736*^9, 
   3.680042872616825*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195735646524`*^9}, {3.6254209175129175`*^9, 3.6254209225929246`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", "z", "]"}]}]}], ")"}], "m"], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"a", " ", 
        RowBox[{"Cos", "[", "z", "]"}]}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"Cos", "[", "z", "]"}], "m"]]}]],
  CellChangeTimes->{{3.625419592524679*^9, 3.6254196174447145`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195840446672`*^9}, 3.6254196237847233`*^9, {3.625420997433029*^9, 
   3.625420997433029*^9}, 3.6800424303125267`*^9, {3.6800424803213873`*^9, 
   3.6800424803213873`*^9}, {3.6800428775381064`*^9, 3.6800428822933784`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.6250186609965053`*^9, 3.6250186609965053`*^9}, {3.6254208158027754`*^9, 
   3.6254208158027754`*^9}, {3.6254208896928787`*^9, 
   3.6254208896928787`*^9}, {3.680042885793579*^9, 3.680042885793579*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"g", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", "+", 
            RowBox[{"a", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}], 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "m"]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9}, 
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9, 
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9, 
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9, 
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9, 
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9}, {
   3.5037665202274017`*^9, 3.5037665301178193`*^9}, {3.503784584829901*^9, 
   3.5037845937599134`*^9}, 3.503792874433873*^9, 3.503792912183926*^9, {
   3.5037929644139996`*^9, 3.5037929747840137`*^9}, {3.5037931121242065`*^9, 
   3.503793113894209*^9}, {3.508371532525346*^9, 3.508371535395751*^9}, 
   3.5083724352425323`*^9, {3.508387207384492*^9, 3.5083872419697523`*^9}, {
   3.508387273341408*^9, 3.508387297958251*^9}, {3.5083883746317434`*^9, 
   3.5083883839449596`*^9}, {3.5084366732473497`*^9, 3.508436675117352*^9}, {
   3.5098473308987117`*^9, 3.5098473379687214`*^9}, {3.515168072474307*^9, 
   3.5151680753643117`*^9}, {3.5970233630883207`*^9, 3.597023373431139*^9}, {
   3.6155071026281013`*^9, 3.615507104368104*^9}, {3.6155073560584564`*^9, 
   3.6155073576384587`*^9}, {3.6155075708487573`*^9, 3.615507572158759*^9}, {
   3.6155076666888914`*^9, 3.615507666718891*^9}, {3.6240642251695786`*^9, 
   3.624064227909582*^9}, {3.6240642584956255`*^9, 3.6240642614656296`*^9}, 
   3.6240658070548134`*^9, {3.624066027264124*^9, 3.6240660576671667`*^9}, {
   3.6240662019173703`*^9, 3.6240662085373797`*^9}, {3.6240768799782257`*^9, 
   3.6240768911790457`*^9}, {3.624077580251856*^9, 3.6240775964632845`*^9}, {
   3.624738733244342*^9, 3.624738749038245*^9}, {3.6247388064515295`*^9, 
   3.624738816673114*^9}, {3.624739183829114*^9, 3.6247393190618486`*^9}, {
   3.6247396052432175`*^9, 3.62473963483191*^9}, {3.6249041109891796`*^9, 
   3.6249041253822746`*^9}, {3.624904157791504*^9, 3.624904174611601*^9}, 
   3.6249042295339704`*^9, {3.6249043031894817`*^9, 3.624904306299486*^9}, {
   3.6249891019281173`*^9, 3.6249891169821434`*^9}, {3.6249892334051485`*^9, 
   3.624989237835556*^9}, {3.624989271224266*^9, 3.6249892889889903`*^9}, {
   3.6249893316706653`*^9, 3.624989344103887*^9}, {3.6249894780145226`*^9, 
   3.6249894930217485`*^9}, {3.6249901868386965`*^9, 
   3.6249902119899406`*^9}, {3.6249904563265705`*^9, 
   3.6249904569037714`*^9}, {3.6249909893497076`*^9, 
   3.6249909964477205`*^9}, {3.6249910273065743`*^9, 
   3.6249911457223177`*^9}, {3.62499139712276*^9, 3.624991402114769*^9}, 
   3.6249916041711245`*^9, {3.624996983144622*^9, 3.6249969856874266`*^9}, {
   3.6250151558579493`*^9, 3.625015169759574*^9}, {3.625016643612939*^9, 
   3.6250166474817457`*^9}, {3.625419451484482*^9, 3.625419533554597*^9}, 
   3.625419615144711*^9, 3.62542091226291*^9, {3.6800417968292933`*^9, 
   3.680041799949472*^9}, {3.6800419535842595`*^9, 3.680041953630262*^9}, {
   3.680042686416175*^9, 3.680042687311226*^9}, {3.6800428935580225`*^9, 
   3.680042899046337*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.6249913513814793`*^9, 3.624991353986684*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"csc", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"g", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "p"}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "/", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "^", "m"}]}]}], ",", "x"}], "]"}],
    " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "g", ",", "p"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9, 
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9, 
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9, 
   3.5036056404067173`*^9}, {3.5036056742667646`*^9, 
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9}, 
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9, 
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9, 
   3.5037659012749257`*^9}, 3.503770483271969*^9, {3.5037705316120367`*^9, 
   3.503770532712038*^9}, {3.5037848128502207`*^9, 3.5037848148402233`*^9}, 
   3.5037933043644753`*^9, 3.5037933665145626`*^9, {3.505409020953904*^9, 
   3.505409026163912*^9}, 3.5054105939761066`*^9, 3.508372762624707*^9, 
   3.5083845812933245`*^9, 3.5083874261128764`*^9, {3.5083875565291057`*^9, 
   3.5083875612559137`*^9}, {3.5083877888603134`*^9, 3.5083877965043273`*^9}, 
   3.5083879224433484`*^9, {3.508387967324627*^9, 3.5083879846094575`*^9}, 
   3.5083883263808584`*^9, {3.508388399654187*^9, 3.5083884327574453`*^9}, {
   3.5084366760673532`*^9, 3.5084366786773567`*^9}, {3.509847339118723*^9, 
   3.5098473444287305`*^9}, {3.544983257475173*^9, 3.5449832624351807`*^9}, {
   3.545067265222787*^9, 3.5450672680027905`*^9}, {3.5474155937223644`*^9, 
   3.5474155944243655`*^9}, {3.5970233776431465`*^9, 
   3.5970234209644227`*^9}, {3.6155071454081616`*^9, 
   3.6155071454281616`*^9}, {3.615507178588208*^9, 3.615507178598208*^9}, 
   3.615507245148301*^9, {3.615507382608494*^9, 3.6155073833884945`*^9}, 
   3.615507459978602*^9, {3.6155075764887652`*^9, 3.6155075818287725`*^9}, {
   3.6155077095189514`*^9, 3.6155077095389514`*^9}, {3.6155077496690073`*^9, 
   3.6155077496790075`*^9}, 3.61550782272911*^9, {3.6240642304595857`*^9, 
   3.62406423346959*^9}, {3.624064265195635*^9, 3.624064269531641*^9}, {
   3.624066532754841*^9, 3.624066586584917*^9}, {3.6240769696003833`*^9, 
   3.624076996978431*^9}, 3.6240776699092135`*^9, {3.6247394980080843`*^9, 
   3.624739562065748*^9}, {3.6247397236889925`*^9, 3.6247397644353228`*^9}, {
   3.6249041166352234`*^9, 3.6249041181352267`*^9}, {3.6249043339486694`*^9, 
   3.624904386824047*^9}, {3.624938279698936*^9, 3.6249382876593914`*^9}, 
   3.6249912905997725`*^9, 3.6249913579334908`*^9, {3.624991638121784*^9, 
   3.6249916644566307`*^9}, {3.624991734315553*^9, 3.6249917439875703`*^9}, {
   3.62499372296692*^9, 3.6249937246205225`*^9}, {3.624997079521591*^9, 
   3.6249970808787937`*^9}, {3.6250077617914677`*^9, 
   3.6250077759426928`*^9}, {3.625008999154563*^9, 3.6250090079861784`*^9}, {
   3.625015173666581*^9, 3.6250151958382196`*^9}, {3.625015229396679*^9, 
   3.6250153110068235`*^9}, {3.6250166582175646`*^9, 3.6250166784528008`*^9}, 
   3.6253318751678247`*^9, {3.625419708224841*^9, 3.6254197312848735`*^9}, 
   3.6254208333328*^9, 3.625420895132886*^9, {3.6254210246370683`*^9, 
   3.6254210499871035`*^9}, {3.6800418154463587`*^9, 3.680041820406642*^9}, {
   3.680041968024085*^9, 3.680041989766329*^9}, 3.680042332078908*^9, {
   3.6800426975028095`*^9, 3.680042702903118*^9}, {3.6800429173663845`*^9, 
   3.6800429375825405`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "p"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      FractionBox[
       RowBox[{"p", "-", "1"}], "2"], "\[Element]", 
      "\[DoubleStruckCapitalZ]"}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.541878685984413*^9, 3.541878695514426*^9}, 3.541879125205028*^9, {
   3.5418801079864035`*^9, 3.5418801285864325`*^9}, 3.541880607577103*^9, 
   3.541880695147226*^9, 3.5418882157219706`*^9, {3.560190471092457*^9, 
   3.5601904719504585`*^9}, 3.560216298823897*^9, 3.560625245791845*^9, {
   3.5609763265614862`*^9, 3.560976354901526*^9}, {3.5612649601466227`*^9, 
   3.56126496989664*^9}, {3.561310342562324*^9, 3.561310342562324*^9}, {
   3.561312905465912*^9, 3.5613129096359177`*^9}, {3.561767416781067*^9, 
   3.5617674346110926`*^9}, {3.5617674667111373`*^9, 3.561767466961138*^9}, {
   3.561924774035615*^9, 3.561924787075633*^9}, 3.561926168263568*^9, {
   3.561927065264824*^9, 3.561927067894827*^9}, {3.5619271407049294`*^9, 
   3.561927141724931*^9}, {3.5623631380384464`*^9, 3.5623631381984463`*^9}, {
   3.5635823611697493`*^9, 3.5635823655997553`*^9}, {3.5635966772380915`*^9, 
   3.563596694108115*^9}, 3.5686019696308565`*^9, 3.5971052819278035`*^9, {
   3.6257124784323397`*^9, 3.6257125079203916`*^9}, {3.680039847567802*^9, 
   3.6800398506799803`*^9}, {3.680041953653263*^9, 3.680041953665264*^9}, {
   3.680042706727337*^9, 3.680042707857401*^9}, 3.6800429468050685`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "p"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"p", "-", "1"}], "2"], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, 3.5612650221567316`*^9, {
   3.561265055057189*^9, 3.561265060532799*^9}, {3.5613037670431185`*^9, 
   3.5613037670431185`*^9}, {3.5613060542563205`*^9, 3.5613060546163206`*^9}, 
   3.561312919095931*^9, 3.5619258522711253`*^9, 3.5619260624334197`*^9, 
   3.5635825027699475`*^9, {3.563582646010148*^9, 3.5635826460201483`*^9}, {
   3.5635826854702034`*^9, 3.5635826854702034`*^9}, {3.5635978663697567`*^9, 
   3.5635978719697647`*^9}, {3.563597959449887*^9, 3.563597959449887*^9}, {
   3.5685983148157396`*^9, 3.568598327655758*^9}, {3.568653734645482*^9, 
   3.568653751836712*^9}, {3.5686541524610157`*^9, 3.568654164925438*^9}, {
   3.5686600252470336`*^9, 3.568660025487034*^9}, {3.625332746140196*^9, 
   3.6253327478701982`*^9}, {3.6253334572460165`*^9, 
   3.6253334574560165`*^9}, {3.6257124845807505`*^9, 3.625712485859953*^9}, {
   3.625712536690842*^9, 3.625712536690842*^9}, 3.680039851441024*^9, {
   3.6800419536922655`*^9, 3.6800419537022657`*^9}, {3.6800427089284625`*^9, 
   3.6800427095534983`*^9}, 3.680042951589342*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.561303519822772*^9, 
   3.561303524882779*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"p", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "p"], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"f", " ", 
      SuperscriptBox["b", 
       RowBox[{"p", "-", "1"}]]}]], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "a"}], "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], 
         FractionBox[
          RowBox[{"p", "-", "1"}], "2"]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], 
         FractionBox[
          RowBox[{"p", "-", "1"}], "2"]]}], 
       SuperscriptBox["x", 
        RowBox[{"p", "+", "1"}]]], ",", "x", ",", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Sec", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]}]}]], "Input",
  CellChangeTimes->{{3.5612260367936153`*^9, 3.5612260481036315`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260758236704`*^9}, {3.5613035475028105`*^9, 
   3.5613036352829337`*^9}, {3.5613060440763063`*^9, 3.561306049166313*^9}, 
   3.5613082015193267`*^9, {3.5613430018416624`*^9, 3.5613430018416624`*^9}, {
   3.561343217061964*^9, 3.5613432634220285`*^9}, {3.5613433001420803`*^9, 
   3.5613433001420803`*^9}, {3.561343345242143*^9, 3.561343345242143*^9}, {
   3.561395009531165*^9, 3.561395009531165*^9}, {3.561396485480957*^9, 
   3.5613965163534117`*^9}, {3.563597967959899*^9, 3.5635980080099545`*^9}, {
   3.563635372387249*^9, 3.56363537876766*^9}, {3.563635433258556*^9, 
   3.563635433258556*^9}, {3.5685983707958183`*^9, 3.5685983707958183`*^9}, {
   3.5685984017958612`*^9, 3.5685984017958612`*^9}, 3.5686504790165634`*^9, {
   3.568653779604761*^9, 3.568653797903593*^9}, {3.568653977132308*^9, 
   3.568654056411647*^9}, {3.568654189729481*^9, 3.568654221912338*^9}, {
   3.5686542531279926`*^9, 3.568654316027303*^9}, {3.6257123980529976`*^9, 
   3.6257124199554367`*^9}, {3.6257125480828624`*^9, 
   3.6257125480828624`*^9}, {3.680041953750269*^9, 3.68004195376927*^9}, {
   3.680042365694831*^9, 3.680042365694831*^9}, {3.6800427105885572`*^9, 
   3.680042714719794*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"p", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561303727383063*^9, 3.5613037473230906`*^9}, {
   3.5613060579763255`*^9, 3.5613060584263263`*^9}, {3.5635826857602034`*^9, 
   3.5635826857602034`*^9}, {3.5636354625710077`*^9, 
   3.5636354625710077`*^9}, {3.568598423655892*^9, 3.568598423655892*^9}, {
   3.5686540957237163`*^9, 3.5686540957237163`*^9}, {3.568654394589041*^9, 
   3.568654394589041*^9}, 3.568654657246702*^9, {3.625712540668849*^9, 
   3.625712540668849*^9}, {3.6800427155548415`*^9, 3.6800427155548415`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "p"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", " ", 
     FractionBox["1", 
      RowBox[{"f", " ", 
       SuperscriptBox["b", 
        RowBox[{"p", "-", "1"}]]}]]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "a"}], "+", 
            RowBox[{"b", " ", "x"}]}], ")"}], 
          FractionBox[
           RowBox[{"p", "-", "1"}], "2"]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}], 
          RowBox[{"m", "+", 
           FractionBox[
            RowBox[{"p", "-", "1"}], "2"]}]]}], 
        SuperscriptBox["x", 
         RowBox[{"p", "+", "1"}]]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Sec", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, {3.5613034430726647`*^9, 3.5613035122327614`*^9}, {
   3.5613045762442513`*^9, 3.5613045778942537`*^9}, 3.561925854761129*^9, 
   3.561926063223421*^9, {3.5635826460601482`*^9, 3.563582646070148*^9}, 
   3.5635832293309646`*^9, {3.563635468982619*^9, 3.5636355071558857`*^9}, 
   3.5636356383365164`*^9, {3.5685984530259333`*^9, 3.568598459985943*^9}, 
   3.568654121370161*^9, {3.568654417536681*^9, 3.5686544373955164`*^9}, {
   3.6257125595488825`*^9, 3.625712592780941*^9}, {3.6257128532183905`*^9, 
   3.6257128539515915`*^9}, {3.68004195377927*^9, 3.6800419538002715`*^9}, 
   3.6800423668898993`*^9, {3.6800427163778887`*^9, 3.6800427189670367`*^9}, {
   3.6800429727915545`*^9, 3.680042973919619*^9}, {3.6800437706431894`*^9, 
   3.6800437771365604`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"csc", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"(", 
      RowBox[{"f", "*", 
       RowBox[{"b", "^", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}]}], ")"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "a"}], "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"m", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"p", "-", "1"}], ")"}], "/", "2"}]}], ")"}]}], "/", 
          RowBox[{"x", "^", 
           RowBox[{"(", 
            RowBox[{"p", "+", "1"}], ")"}]}]}]}], ",", "x"}], "]"}], ",", "x",
       ",", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, {3.5613046223243155`*^9, 3.5613046434343452`*^9}, {
   3.5613060619263315`*^9, 3.5613060635163336`*^9}, {3.5613061324164295`*^9, 
   3.561306137366437*^9}, {3.561306544027006*^9, 3.5613065475870113`*^9}, 
   3.561331213085783*^9, {3.5614260249253736`*^9, 3.561426030225381*^9}, {
   3.561823381040988*^9, 3.56182338257099*^9}, 3.5619257915370398`*^9, {
   3.5635826460801477`*^9, 3.563582646100148*^9}, 3.563582719720251*^9, 
   3.5635832327309694`*^9, 3.563584203072328*^9, 3.5636355211803102`*^9, {
   3.563635552801566*^9, 3.563635654420144*^9}, {3.563639909893217*^9, 
   3.5636399137152243`*^9}, {3.5685984312159023`*^9, 
   3.5685984371559105`*^9}, {3.5685984752659645`*^9, 3.5685985017260013`*^9}, 
   3.56860044407872*^9, 3.568600482138774*^9, {3.568654489203207*^9, 
   3.568654511121246*^9}, {3.5686545503709145`*^9, 3.568654562460936*^9}, {
   3.568655538733156*^9, 3.568655542648763*^9}, {3.625332662849079*^9, 
   3.6253326682490864`*^9}, {3.625332701289133*^9, 3.6253327080391426`*^9}, {
   3.625712687438308*^9, 3.625712692492717*^9}, {3.625712730313184*^9, 
   3.625712768960452*^9}, {3.625712803001902*^9, 3.6257128060595074`*^9}, 
   3.625712877710433*^9, 3.625713521114769*^9, {3.680041968079088*^9, 
   3.68004199154043*^9}, 3.680042336855181*^9, 3.6800423761514287`*^9, {
   3.680042734023898*^9, 3.680042740567272*^9}, {3.68004299387376*^9, 
   3.680042999392076*^9}, 3.6800438963743806`*^9, 3.706139858045823*^9, {
   3.715463030079397*^9, 3.7154630314884777`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "p"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"p", "-", "1"}], "2"], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.553299727838824*^9, 
   3.5532997300288267`*^9}, {3.5532999791891756`*^9, 
   3.5532999817291794`*^9}, {3.553305063816294*^9, 3.5533050640562944`*^9}, {
   3.5533051019963474`*^9, 3.553305104566351*^9}, {3.5533054443968267`*^9, 
   3.5533054475368314`*^9}, 3.5533078575102053`*^9, {3.5533106008040457`*^9, 
   3.5533106008040457`*^9}, {3.5546831350233016`*^9, 3.554683135273302*^9}, 
   3.560216298603896*^9, 3.5606251917417693`*^9, {3.560975839890805*^9, 
   3.560975839890805*^9}, {3.5609767760421157`*^9, 3.5609767854021287`*^9}, {
   3.560976852662223*^9, 3.560976853522224*^9}, 3.5609769271023273`*^9, {
   3.560976964532379*^9, 3.5609769756223946`*^9}, 3.5612650221567316`*^9, {
   3.561265055057189*^9, 3.561265060532799*^9}, {3.5613037670431185`*^9, 
   3.5613037670431185`*^9}, {3.5613060542563205`*^9, 3.5613060546163206`*^9}, 
   3.561312919095931*^9, 3.5619258522711253`*^9, 3.5619260624334197`*^9, 
   3.5635825027699475`*^9, {3.563582646010148*^9, 3.5635826460201483`*^9}, {
   3.5635826854702034`*^9, 3.5635826854702034`*^9}, {3.5635978663697567`*^9, 
   3.5635978719697647`*^9}, {3.563597959449887*^9, 3.563597959449887*^9}, {
   3.5685983148157396`*^9, 3.568598327655758*^9}, {3.568653734645482*^9, 
   3.568653751836712*^9}, {3.5686541524610157`*^9, 3.568654164925438*^9}, {
   3.5686600252470336`*^9, 3.568660025487034*^9}, {3.625332746140196*^9, 
   3.6253327478701982`*^9}, {3.6253334572460165`*^9, 
   3.6253334574560165`*^9}, {3.6257124845807505`*^9, 3.625712485859953*^9}, {
   3.625712536690842*^9, 3.625712536690842*^9}, {3.625712948144557*^9, 
   3.625712977145008*^9}, 3.6800398520100565`*^9, {3.6800419538112726`*^9, 
   3.6800419538202724`*^9}, {3.680042742015355*^9, 3.6800427429374075`*^9}, 
   3.680043004165349*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260578536453`*^9}, {3.561303519822772*^9, 
   3.561303524882779*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"p", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "p"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "f"], 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "x"}], ")"}], 
         FractionBox[
          RowBox[{"p", "-", "1"}], "2"]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "x"}], ")"}], 
         FractionBox[
          RowBox[{"p", "-", "1"}], "2"]]}], 
       SuperscriptBox["x", 
        RowBox[{"p", "+", "1"}]]], ",", "x", ",", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Sec", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]}]}]], "Input",
  CellChangeTimes->{{3.5612260367936153`*^9, 3.5612260481036315`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.4976636252234545`*^9, 3.497665167504564*^9, {
   3.561226054703641*^9, 3.5612260758236704`*^9}, {3.5613035475028105`*^9, 
   3.5613036352829337`*^9}, {3.5613060440763063`*^9, 3.561306049166313*^9}, 
   3.5613082015193267`*^9, {3.5613430018416624`*^9, 3.5613430018416624`*^9}, {
   3.561343217061964*^9, 3.5613432634220285`*^9}, {3.5613433001420803`*^9, 
   3.5613433001420803`*^9}, {3.561343345242143*^9, 3.561343345242143*^9}, {
   3.561395009531165*^9, 3.561395009531165*^9}, {3.561396485480957*^9, 
   3.5613965163534117`*^9}, {3.563597967959899*^9, 3.5635980080099545`*^9}, {
   3.563635372387249*^9, 3.56363537876766*^9}, {3.563635433258556*^9, 
   3.563635433258556*^9}, {3.5685983707958183`*^9, 3.5685983707958183`*^9}, {
   3.5685984017958612`*^9, 3.5685984017958612`*^9}, 3.5686504790165634`*^9, {
   3.568653779604761*^9, 3.568653797903593*^9}, {3.568653977132308*^9, 
   3.568654056411647*^9}, {3.568654189729481*^9, 3.568654221912338*^9}, {
   3.5686542531279926`*^9, 3.568654316027303*^9}, {3.6257123980529976`*^9, 
   3.6257124199554367`*^9}, {3.6257125480828624`*^9, 
   3.6257125480828624`*^9}, {3.625713100986026*^9, 3.625713102031228*^9}, {
   3.6257132297802534`*^9, 3.6257132297802534`*^9}, {3.6800419538282733`*^9, 
   3.6800419538442745`*^9}, {3.68004237722149*^9, 3.68004237722149*^9}, {
   3.680042744060472*^9, 3.6800427471996517`*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"p", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}],
    " ", "\[And]", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561303727383063*^9, 3.5613037473230906`*^9}, {
   3.5613060579763255`*^9, 3.5613060584263263`*^9}, {3.5635826857602034`*^9, 
   3.5635826857602034`*^9}, {3.5636354625710077`*^9, 
   3.5636354625710077`*^9}, {3.568598423655892*^9, 3.568598423655892*^9}, {
   3.5686540957237163`*^9, 3.5686540957237163`*^9}, {3.568654394589041*^9, 
   3.568654394589041*^9}, 3.568654657246702*^9, {3.625712540668849*^9, 
   3.625712540668849*^9}, {3.625712979984213*^9, 3.625712979984213*^9}, {
   3.6800427479466944`*^9, 3.6800427479466944`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "p"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", " ", 
     FractionBox["1", "f"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", " ", "x"}], ")"}], 
          FractionBox[
           RowBox[{"p", "-", "1"}], "2"]], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", " ", "x"}], ")"}], 
          FractionBox[
           RowBox[{"p", "-", "1"}], "2"]], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}], "m"]}], 
        SuperscriptBox["x", 
         RowBox[{"p", "+", "1"}]]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Sec", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.49766342891271*^9, 3.497663457772761*^9}, {
   3.497663580747777*^9, 3.497663583134581*^9}, {3.4976652106074395`*^9, 
   3.4976652204666567`*^9}, 3.4976652749419527`*^9, {3.4991316095329504`*^9, 
   3.4991316274529753`*^9}, {3.4991318033632216`*^9, 3.499131806573226*^9}, {
   3.56122609003369*^9, 3.5612261336137514`*^9}, {3.5612261841238217`*^9, 
   3.561226212973862*^9}, {3.561226245623908*^9, 3.561226251553916*^9}, 
   3.5612273551154613`*^9, {3.5613034430726647`*^9, 3.5613035122327614`*^9}, {
   3.5613045762442513`*^9, 3.5613045778942537`*^9}, 3.561925854761129*^9, 
   3.561926063223421*^9, {3.5635826460601482`*^9, 3.563582646070148*^9}, 
   3.5635832293309646`*^9, {3.563635468982619*^9, 3.5636355071558857`*^9}, 
   3.5636356383365164`*^9, {3.5685984530259333`*^9, 3.568598459985943*^9}, 
   3.568654121370161*^9, {3.568654417536681*^9, 3.5686544373955164`*^9}, {
   3.6257125595488825`*^9, 3.625712592780941*^9}, {3.6257128532183905`*^9, 
   3.6257128539515915`*^9}, {3.6257132386586685`*^9, 3.625713253275894*^9}, {
   3.6800419538542747`*^9, 3.680041953872276*^9}, 3.6800423782015457`*^9, {
   3.680042748593731*^9, 3.680042750542843*^9}, {3.6800430148709617`*^9, 
   3.680043015823016*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"csc", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", "f"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "x"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "x"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", "m"}], "/", 
          RowBox[{"x", "^", 
           RowBox[{"(", 
            RowBox[{"p", "+", "1"}], ")"}]}]}]}], ",", "x"}], "]"}], ",", "x",
       ",", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497663384967433*^9, {
   3.4976635889065914`*^9, 3.497663592322997*^9}, 3.4976651612957525`*^9, {
   3.49913160954295*^9, 3.4991316274529753`*^9}, 3.4991317842431946`*^9, 
   3.5609702671974792`*^9, 3.5609704436320634`*^9, {3.561226361824071*^9, 
   3.5612263834141006`*^9}, {3.561226446604189*^9, 3.5612264740842276`*^9}, 
   3.561227358565466*^9, {3.5613046223243155`*^9, 3.5613046434343452`*^9}, {
   3.5613060619263315`*^9, 3.5613060635163336`*^9}, {3.5613061324164295`*^9, 
   3.561306137366437*^9}, {3.561306544027006*^9, 3.5613065475870113`*^9}, 
   3.561331213085783*^9, {3.5614260249253736`*^9, 3.561426030225381*^9}, {
   3.561823381040988*^9, 3.56182338257099*^9}, 3.5619257915370398`*^9, {
   3.5635826460801477`*^9, 3.563582646100148*^9}, 3.563582719720251*^9, 
   3.5635832327309694`*^9, 3.563584203072328*^9, 3.5636355211803102`*^9, {
   3.563635552801566*^9, 3.563635654420144*^9}, {3.563639909893217*^9, 
   3.5636399137152243`*^9}, {3.5685984312159023`*^9, 
   3.5685984371559105`*^9}, {3.5685984752659645`*^9, 3.5685985017260013`*^9}, 
   3.56860044407872*^9, 3.568600482138774*^9, {3.568654489203207*^9, 
   3.568654511121246*^9}, {3.5686545503709145`*^9, 3.568654562460936*^9}, {
   3.568655538733156*^9, 3.568655542648763*^9}, {3.625332662849079*^9, 
   3.6253326682490864`*^9}, {3.625332701289133*^9, 3.6253327080391426`*^9}, {
   3.625712687438308*^9, 3.625712692492717*^9}, {3.625712730313184*^9, 
   3.6257127416564035`*^9}, {3.625712870830821*^9, 3.6257128715484223`*^9}, {
   3.6257129819654164`*^9, 3.625712983509819*^9}, {3.6257133199272118`*^9, 
   3.6257133477762613`*^9}, 3.625713522159971*^9, {3.6800419681000896`*^9, 
   3.6800419916114345`*^9}, 3.6800423389913034`*^9, 3.6800423834388456`*^9, {
   3.6800427606634216`*^9, 3.680042766791772*^9}, {3.6800430307058673`*^9, 
   3.680043035839161*^9}, 3.7061398696158395`*^9, {3.7154630360627394`*^9, 
   3.7154630367537794`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "2"]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545066651861928*^9, 
   3.5450666715919557`*^9}, {3.545067018472441*^9, 3.54506702505245*^9}, {
   3.5450672112627115`*^9, 3.5450672142727156`*^9}, {3.5474153416867237`*^9, 
   3.547415342965926*^9}, {3.575327678898259*^9, 3.5753276798782606`*^9}, {
   3.578688109525468*^9, 3.578688109745468*^9}, {3.5791314039196434`*^9, 
   3.5791314043496437`*^9}, {3.5970233602803164`*^9, 
   3.5970233606547165`*^9}, {3.602029453182803*^9, 3.602029453422803*^9}, {
   3.611960802461655*^9, 3.611960802721656*^9}, {3.6155071018281007`*^9, 
   3.6155071023881016`*^9}, 3.615507355198455*^9, {3.615507666678891*^9, 
   3.6155076666888914`*^9}, {3.6240635683046503`*^9, 3.624063571339655*^9}, {
   3.624064220709572*^9, 3.6240642213195724`*^9}, 3.624064257535624*^9, {
   3.6240662943845024`*^9, 3.6240662992245092`*^9}, 3.6240664735447583`*^9, {
   3.624076720043745*^9, 3.6240767390621786`*^9}, 3.6246510551183367`*^9, {
   3.6247385576502986`*^9, 3.624738582132699*^9}, {3.6247388448707266`*^9, 
   3.624738863743806*^9}, {3.6247389043281274`*^9, 3.624738904943163*^9}, 
   3.624739984733923*^9, {3.6249040774829507`*^9, 3.624904108159175*^9}, {
   3.624938229294053*^9, 3.624938263003981*^9}, {3.62498901238396*^9, 
   3.624989055611636*^9}, {3.6249915281481905`*^9, 3.624991528491391*^9}, 
   3.6249923628265963`*^9, 3.624993674164034*^9, {3.6249937105024977`*^9, 
   3.6249937147457056`*^9}, {3.625007732002015*^9, 3.6250077485450444`*^9}, {
   3.625009022509804*^9, 3.625009038517432*^9}, {3.6250150936430397`*^9, 
   3.625015134329911*^9}, 3.6250166270427094`*^9, {3.6254194422844687`*^9, 
   3.6254194425344696`*^9}, {3.625420774632717*^9, 3.625420797362749*^9}, {
   3.6254208634428415`*^9, 3.6254208646828437`*^9}, {3.6257059162028155`*^9, 
   3.6257059182776194`*^9}, {3.625706066941803*^9, 3.625706068804246*^9}, {
   3.6257085594459066`*^9, 3.6257085594459066`*^9}, {3.680038580569334*^9, 
   3.6800385818264055`*^9}, 3.6800398542741857`*^9, 3.6800418390527086`*^9, {
   3.6800419538822765`*^9, 3.6800419538892765`*^9}, 3.6800427785674458`*^9, {
   3.6800434424854193`*^9, 3.680043453716062*^9}, {3.680044499905901*^9, 
   3.680044504519164*^9}, {3.680044603315815*^9, 3.6800446178916492`*^9}, {
   3.6803285285818076`*^9, 3.6803285617202663`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195735646524`*^9}, {3.680328567416276*^9, 3.6803285716438837`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], "2"]], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}], "\[Equal]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"Cot", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "f"]}]}]],
  CellChangeTimes->{{3.625419592524679*^9, 3.6254196174447145`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195840446672`*^9}, 3.6254196237847233`*^9, {3.6800419538992777`*^9, 
   3.680041953907278*^9}, {3.680043443057452*^9, 3.6800434430584526`*^9}, {
   3.680043482848728*^9, 3.680043484487822*^9}, {3.6803286377648*^9, 
   3.6803286377648*^9}, {3.68032878403686*^9, 3.680328787640466*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"Cot", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "f"]}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", "b"}], " ", "m", " ", 
    RowBox[{"Sec", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
     RowBox[{"m", "-", "1"}]]}]}]],
  CellChangeTimes->{{3.625419592524679*^9, 3.6254196174447145`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195840446672`*^9}, 3.6254196237847233`*^9, {3.6800419538992777`*^9, 
   3.680041953907278*^9}, {3.680043443057452*^9, 3.6800434430584526`*^9}, {
   3.680043482848728*^9, 3.680043484487822*^9}, {3.6803286377648*^9, 
   3.6803286377648*^9}, {3.6803287580920143`*^9, 3.6803287580920143`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.6250186609965053`*^9, 3.6250186609965053`*^9}, {3.6254208158027754`*^9, 
   3.6254208158027754`*^9}, {3.62570856183891*^9, 3.62570856183891*^9}, {
   3.680043456502221*^9, 3.680043456502221*^9}, {3.6800446233359604`*^9, 
   3.6800446233359604`*^9}, 3.6803288396081576`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "2"]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"Cot", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Sec", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}], 
        "f"]}]}]}]}]}], "+", 
  RowBox[{"b", " ", "m", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Sec", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9}, 
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9, 
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9, 
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9, 
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9, 
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9}, {
   3.5037665202274017`*^9, 3.5037665301178193`*^9}, {3.503784584829901*^9, 
   3.5037845937599134`*^9}, 3.503792874433873*^9, 3.503792912183926*^9, {
   3.5037929644139996`*^9, 3.5037929747840137`*^9}, {3.5037931121242065`*^9, 
   3.503793113894209*^9}, {3.508371532525346*^9, 3.508371535395751*^9}, 
   3.5083724352425323`*^9, {3.508387207384492*^9, 3.5083872419697523`*^9}, {
   3.508387273341408*^9, 3.508387297958251*^9}, {3.5083883746317434`*^9, 
   3.5083883839449596`*^9}, {3.5084366732473497`*^9, 3.508436675117352*^9}, {
   3.5098473308987117`*^9, 3.5098473379687214`*^9}, {3.515168072474307*^9, 
   3.5151680753643117`*^9}, {3.5970233630883207`*^9, 3.597023373431139*^9}, {
   3.6155071026281013`*^9, 3.615507104368104*^9}, {3.6155073560584564`*^9, 
   3.6155073576384587`*^9}, {3.6155075708487573`*^9, 3.615507572158759*^9}, {
   3.6155076666888914`*^9, 3.615507666718891*^9}, {3.6240642251695786`*^9, 
   3.624064227909582*^9}, {3.6240642584956255`*^9, 3.6240642614656296`*^9}, 
   3.6240658070548134`*^9, {3.624066027264124*^9, 3.6240660576671667`*^9}, {
   3.6240662019173703`*^9, 3.6240662085373797`*^9}, {3.6240768799782257`*^9, 
   3.6240768911790457`*^9}, {3.624077580251856*^9, 3.6240775964632845`*^9}, {
   3.624738733244342*^9, 3.624738749038245*^9}, {3.6247388064515295`*^9, 
   3.624738816673114*^9}, {3.624739183829114*^9, 3.6247393190618486`*^9}, {
   3.6247396052432175`*^9, 3.62473963483191*^9}, {3.6249041109891796`*^9, 
   3.6249041253822746`*^9}, {3.624904157791504*^9, 3.624904174611601*^9}, 
   3.6249042295339704`*^9, {3.6249043031894817`*^9, 3.624904306299486*^9}, {
   3.6249891019281173`*^9, 3.6249891169821434`*^9}, {3.6249892334051485`*^9, 
   3.624989237835556*^9}, {3.624989271224266*^9, 3.6249892889889903`*^9}, {
   3.6249893316706653`*^9, 3.624989344103887*^9}, {3.6249894780145226`*^9, 
   3.6249894930217485`*^9}, {3.6249901868386965`*^9, 
   3.6249902119899406`*^9}, {3.6249904563265705`*^9, 
   3.6249904569037714`*^9}, {3.6249909893497076`*^9, 
   3.6249909964477205`*^9}, {3.6249910273065743`*^9, 
   3.6249911457223177`*^9}, {3.62499139712276*^9, 3.624991402114769*^9}, 
   3.6249916041711245`*^9, {3.624996983144622*^9, 3.6249969856874266`*^9}, {
   3.6250151558579493`*^9, 3.625015169759574*^9}, {3.625016643612939*^9, 
   3.6250166474817457`*^9}, {3.625419451484482*^9, 3.625419533554597*^9}, 
   3.625419615144711*^9, {3.6800418516064267`*^9, 3.680041856470705*^9}, {
   3.6800419539172783`*^9, 3.6800419539542804`*^9}, {3.680042779897522*^9, 
   3.680042780857577*^9}, {3.680043443822496*^9, 3.680043444374528*^9}, {
   3.6800434869359617`*^9, 3.6800435054760227`*^9}, {3.6800447994300327`*^9, 
   3.6800448118417425`*^9}, {3.680328807546101*^9, 3.6803288140689125`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.6249913513814793`*^9, 3.624991353986684*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"csc", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_"}], "/", 
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Tan", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "/", 
      "f"}]}], " ", "+", " ", 
    RowBox[{"b", "*", "m", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Csc", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Csc", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9, 
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9, 
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9, 
   3.5036056404067173`*^9}, {3.5036056742667646`*^9, 
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9}, 
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9, 
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9, 
   3.5037659012749257`*^9}, 3.503770483271969*^9, {3.5037705316120367`*^9, 
   3.503770532712038*^9}, {3.5037848128502207`*^9, 3.5037848148402233`*^9}, 
   3.5037933043644753`*^9, 3.5037933665145626`*^9, {3.505409020953904*^9, 
   3.505409026163912*^9}, 3.5054105939761066`*^9, 3.508372762624707*^9, 
   3.5083845812933245`*^9, 3.5083874261128764`*^9, {3.5083875565291057`*^9, 
   3.5083875612559137`*^9}, {3.5083877888603134`*^9, 3.5083877965043273`*^9}, 
   3.5083879224433484`*^9, {3.508387967324627*^9, 3.5083879846094575`*^9}, 
   3.5083883263808584`*^9, {3.508388399654187*^9, 3.5083884327574453`*^9}, {
   3.5084366760673532`*^9, 3.5084366786773567`*^9}, {3.509847339118723*^9, 
   3.5098473444287305`*^9}, {3.544983257475173*^9, 3.5449832624351807`*^9}, {
   3.545067265222787*^9, 3.5450672680027905`*^9}, {3.5474155937223644`*^9, 
   3.5474155944243655`*^9}, {3.5970233776431465`*^9, 
   3.5970234209644227`*^9}, {3.6155071454081616`*^9, 
   3.6155071454281616`*^9}, {3.615507178588208*^9, 3.615507178598208*^9}, 
   3.615507245148301*^9, {3.615507382608494*^9, 3.6155073833884945`*^9}, 
   3.615507459978602*^9, {3.6155075764887652`*^9, 3.6155075818287725`*^9}, {
   3.6155077095189514`*^9, 3.6155077095389514`*^9}, {3.6155077496690073`*^9, 
   3.6155077496790075`*^9}, 3.61550782272911*^9, {3.6240642304595857`*^9, 
   3.62406423346959*^9}, {3.624064265195635*^9, 3.624064269531641*^9}, {
   3.624066532754841*^9, 3.624066586584917*^9}, {3.6240769696003833`*^9, 
   3.624076996978431*^9}, 3.6240776699092135`*^9, {3.6247394980080843`*^9, 
   3.624739562065748*^9}, {3.6247397236889925`*^9, 3.6247397644353228`*^9}, {
   3.6249041166352234`*^9, 3.6249041181352267`*^9}, {3.6249043339486694`*^9, 
   3.624904386824047*^9}, {3.624938279698936*^9, 3.6249382876593914`*^9}, 
   3.6249912905997725`*^9, 3.6249913579334908`*^9, {3.624991638121784*^9, 
   3.6249916644566307`*^9}, {3.624991734315553*^9, 3.6249917439875703`*^9}, {
   3.62499372296692*^9, 3.6249937246205225`*^9}, {3.624997079521591*^9, 
   3.6249970808787937`*^9}, {3.6250077617914677`*^9, 
   3.6250077759426928`*^9}, {3.625008999154563*^9, 3.6250090079861784`*^9}, {
   3.625015173666581*^9, 3.6250151958382196`*^9}, {3.625015229396679*^9, 
   3.6250152736855574`*^9}, {3.6250166503989506`*^9, 3.6250166531475563`*^9}, 
   3.6253318735378222`*^9, {3.6254196977148266`*^9, 3.625419700834831*^9}, {
   3.6254208218027835`*^9, 3.6254208277127914`*^9}, {3.6257059231292276`*^9, 
   3.625705927265235*^9}, {3.6257085044398108`*^9, 3.625708530928856*^9}, 
   3.62571352707398*^9, {3.680041860002907*^9, 3.6800418682483788`*^9}, {
   3.6800419681100903`*^9, 3.680041991642436*^9}, 3.680042343928586*^9, {
   3.680042784392779*^9, 3.6800427886970253`*^9}, {3.680043244523097*^9, 
   3.6800432714876394`*^9}, 3.680043459523394*^9, 3.6800435108003273`*^9, {
   3.680044363792115*^9, 3.680044396638994*^9}, {3.6800444478769245`*^9, 
   3.680044452018162*^9}, {3.680044650585519*^9, 3.680044651524573*^9}, {
   3.6800447139331427`*^9, 3.6800447158462515`*^9}, {3.680044907050188*^9, 
   3.6800449145426164`*^9}, {3.680328859173592*^9, 3.6803288661468043`*^9}, {
   3.680328904480072*^9, 3.6803289628155746`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[Or]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "m"}], "|", "p"}], ")"}], "\[Element]", 
       "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545066651861928*^9, 
   3.5450666715919557`*^9}, {3.545067018472441*^9, 3.54506702505245*^9}, {
   3.5450672112627115`*^9, 3.5450672142727156`*^9}, {3.5474153416867237`*^9, 
   3.547415342965926*^9}, {3.575327678898259*^9, 3.5753276798782606`*^9}, {
   3.578688109525468*^9, 3.578688109745468*^9}, {3.5791314039196434`*^9, 
   3.5791314043496437`*^9}, {3.5970233602803164`*^9, 
   3.5970233606547165`*^9}, {3.602029453182803*^9, 3.602029453422803*^9}, {
   3.611960802461655*^9, 3.611960802721656*^9}, {3.6155071018281007`*^9, 
   3.6155071023881016`*^9}, 3.615507355198455*^9, {3.615507666678891*^9, 
   3.6155076666888914`*^9}, {3.6240635683046503`*^9, 3.624063571339655*^9}, {
   3.624064220709572*^9, 3.6240642213195724`*^9}, 3.624064257535624*^9, {
   3.6240662943845024`*^9, 3.6240662992245092`*^9}, 3.6240664735447583`*^9, {
   3.624076720043745*^9, 3.6240767390621786`*^9}, 3.6246510551183367`*^9, {
   3.6247385576502986`*^9, 3.624738582132699*^9}, {3.6247388448707266`*^9, 
   3.624738863743806*^9}, {3.6247389043281274`*^9, 3.624738904943163*^9}, 
   3.624739984733923*^9, {3.6249040774829507`*^9, 3.624904108159175*^9}, {
   3.624938229294053*^9, 3.624938263003981*^9}, {3.62498901238396*^9, 
   3.624989055611636*^9}, {3.6249915281481905`*^9, 3.624991528491391*^9}, 
   3.6249923628265963`*^9, 3.624993674164034*^9, {3.6249937105024977`*^9, 
   3.6249937147457056`*^9}, {3.625007732002015*^9, 3.6250077485450444`*^9}, {
   3.625009022509804*^9, 3.625009038517432*^9}, {3.6250150936430397`*^9, 
   3.625015134329911*^9}, 3.6250166270427094`*^9, {3.6254194422844687`*^9, 
   3.6254194425344696`*^9}, {3.625420774632717*^9, 3.625420797362749*^9}, {
   3.6254208634428415`*^9, 3.6254208646828437`*^9}, {3.6257059162028155`*^9, 
   3.6257059182776194`*^9}, {3.625706066941803*^9, 3.625706068804246*^9}, {
   3.6257085594459066`*^9, 3.6257085594459066`*^9}, {3.680038580569334*^9, 
   3.6800385818264055`*^9}, 3.6800398542741857`*^9, 3.6800418390527086`*^9, {
   3.6800419538822765`*^9, 3.6800419538892765`*^9}, 3.6800427785674458`*^9, {
   3.6800434424854193`*^9, 3.680043453716062*^9}, {3.680044499905901*^9, 
   3.680044504519164*^9}, {3.680044603315815*^9, 3.6800446178916492`*^9}, {
   3.680329048797326*^9, 3.680329049000127*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195735646524`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], "m"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Sec", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"a", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]]}], "\[Equal]", 
   "0"}]],
  CellChangeTimes->{{3.625419592524679*^9, 3.6254196174447145`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195840446672`*^9}, 3.6254196237847233`*^9, {3.6800419538992777`*^9, 
   3.680041953907278*^9}, {3.680043443057452*^9, 3.6800434430584526`*^9}, {
   3.680043482848728*^9, 3.680043484487822*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[Or]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "m"}], "|", "p"}], ")"}], "\[Element]", 
    "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.6250186609965053`*^9, 3.6250186609965053`*^9}, {3.6254208158027754`*^9, 
   3.6254208158027754`*^9}, {3.62570856183891*^9, 3.62570856183891*^9}, {
   3.680043456502221*^9, 3.680043456502221*^9}, {3.6800446233359604`*^9, 
   3.6800446233359604`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], "m"], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", "+", 
         RowBox[{"a", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"g", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"a", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}], 
      SuperscriptBox[
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], "m"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9}, 
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9, 
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9, 
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9, 
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9, 
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9}, {
   3.5037665202274017`*^9, 3.5037665301178193`*^9}, {3.503784584829901*^9, 
   3.5037845937599134`*^9}, 3.503792874433873*^9, 3.503792912183926*^9, {
   3.5037929644139996`*^9, 3.5037929747840137`*^9}, {3.5037931121242065`*^9, 
   3.503793113894209*^9}, {3.508371532525346*^9, 3.508371535395751*^9}, 
   3.5083724352425323`*^9, {3.508387207384492*^9, 3.5083872419697523`*^9}, {
   3.508387273341408*^9, 3.508387297958251*^9}, {3.5083883746317434`*^9, 
   3.5083883839449596`*^9}, {3.5084366732473497`*^9, 3.508436675117352*^9}, {
   3.5098473308987117`*^9, 3.5098473379687214`*^9}, {3.515168072474307*^9, 
   3.5151680753643117`*^9}, {3.5970233630883207`*^9, 3.597023373431139*^9}, {
   3.6155071026281013`*^9, 3.615507104368104*^9}, {3.6155073560584564`*^9, 
   3.6155073576384587`*^9}, {3.6155075708487573`*^9, 3.615507572158759*^9}, {
   3.6155076666888914`*^9, 3.615507666718891*^9}, {3.6240642251695786`*^9, 
   3.624064227909582*^9}, {3.6240642584956255`*^9, 3.6240642614656296`*^9}, 
   3.6240658070548134`*^9, {3.624066027264124*^9, 3.6240660576671667`*^9}, {
   3.6240662019173703`*^9, 3.6240662085373797`*^9}, {3.6240768799782257`*^9, 
   3.6240768911790457`*^9}, {3.624077580251856*^9, 3.6240775964632845`*^9}, {
   3.624738733244342*^9, 3.624738749038245*^9}, {3.6247388064515295`*^9, 
   3.624738816673114*^9}, {3.624739183829114*^9, 3.6247393190618486`*^9}, {
   3.6247396052432175`*^9, 3.62473963483191*^9}, {3.6249041109891796`*^9, 
   3.6249041253822746`*^9}, {3.624904157791504*^9, 3.624904174611601*^9}, 
   3.6249042295339704`*^9, {3.6249043031894817`*^9, 3.624904306299486*^9}, {
   3.6249891019281173`*^9, 3.6249891169821434`*^9}, {3.6249892334051485`*^9, 
   3.624989237835556*^9}, {3.624989271224266*^9, 3.6249892889889903`*^9}, {
   3.6249893316706653`*^9, 3.624989344103887*^9}, {3.6249894780145226`*^9, 
   3.6249894930217485`*^9}, {3.6249901868386965`*^9, 
   3.6249902119899406`*^9}, {3.6249904563265705`*^9, 
   3.6249904569037714`*^9}, {3.6249909893497076`*^9, 
   3.6249909964477205`*^9}, {3.6249910273065743`*^9, 
   3.6249911457223177`*^9}, {3.62499139712276*^9, 3.624991402114769*^9}, 
   3.6249916041711245`*^9, {3.624996983144622*^9, 3.6249969856874266`*^9}, {
   3.6250151558579493`*^9, 3.625015169759574*^9}, {3.625016643612939*^9, 
   3.6250166474817457`*^9}, {3.625419451484482*^9, 3.625419533554597*^9}, 
   3.625419615144711*^9, {3.6800418516064267`*^9, 3.680041856470705*^9}, {
   3.6800419539172783`*^9, 3.6800419539542804`*^9}, {3.680042779897522*^9, 
   3.680042780857577*^9}, {3.680043443822496*^9, 3.680043444374528*^9}, {
   3.6800434869359617`*^9, 3.6800435054760227`*^9}, {3.6800447994300327`*^9, 
   3.6800448118417425`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.6249913513814793`*^9, 3.624991353986684*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"csc", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "^", 
     RowBox[{"FracPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Csc", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", 
        RowBox[{"a", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}]}], "*", "\n", "    ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "p"}], "*", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "+", 
           RowBox[{"a", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "/", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}], "^", "m"}]}]}], ",", "x"}], 
     "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "e", ",", "f", ",", "g", ",", "m", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"EqQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "^", "2"}], "-", 
         RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{"IntegersQ", "[", 
       RowBox[{
        RowBox[{"2", "*", "m"}], ",", "p"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9, 
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9, 
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9, 
   3.5036056404067173`*^9}, {3.5036056742667646`*^9, 
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9}, 
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9, 
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9, 
   3.5037659012749257`*^9}, 3.503770483271969*^9, {3.5037705316120367`*^9, 
   3.503770532712038*^9}, {3.5037848128502207`*^9, 3.5037848148402233`*^9}, 
   3.5037933043644753`*^9, 3.5037933665145626`*^9, {3.505409020953904*^9, 
   3.505409026163912*^9}, 3.5054105939761066`*^9, 3.508372762624707*^9, 
   3.5083845812933245`*^9, 3.5083874261128764`*^9, {3.5083875565291057`*^9, 
   3.5083875612559137`*^9}, {3.5083877888603134`*^9, 3.5083877965043273`*^9}, 
   3.5083879224433484`*^9, {3.508387967324627*^9, 3.5083879846094575`*^9}, 
   3.5083883263808584`*^9, {3.508388399654187*^9, 3.5083884327574453`*^9}, {
   3.5084366760673532`*^9, 3.5084366786773567`*^9}, {3.509847339118723*^9, 
   3.5098473444287305`*^9}, {3.544983257475173*^9, 3.5449832624351807`*^9}, {
   3.545067265222787*^9, 3.5450672680027905`*^9}, {3.5474155937223644`*^9, 
   3.5474155944243655`*^9}, {3.5970233776431465`*^9, 
   3.5970234209644227`*^9}, {3.6155071454081616`*^9, 
   3.6155071454281616`*^9}, {3.615507178588208*^9, 3.615507178598208*^9}, 
   3.615507245148301*^9, {3.615507382608494*^9, 3.6155073833884945`*^9}, 
   3.615507459978602*^9, {3.6155075764887652`*^9, 3.6155075818287725`*^9}, {
   3.6155077095189514`*^9, 3.6155077095389514`*^9}, {3.6155077496690073`*^9, 
   3.6155077496790075`*^9}, 3.61550782272911*^9, {3.6240642304595857`*^9, 
   3.62406423346959*^9}, {3.624064265195635*^9, 3.624064269531641*^9}, {
   3.624066532754841*^9, 3.624066586584917*^9}, {3.6240769696003833`*^9, 
   3.624076996978431*^9}, 3.6240776699092135`*^9, {3.6247394980080843`*^9, 
   3.624739562065748*^9}, {3.6247397236889925`*^9, 3.6247397644353228`*^9}, {
   3.6249041166352234`*^9, 3.6249041181352267`*^9}, {3.6249043339486694`*^9, 
   3.624904386824047*^9}, {3.624938279698936*^9, 3.6249382876593914`*^9}, 
   3.6249912905997725`*^9, 3.6249913579334908`*^9, {3.624991638121784*^9, 
   3.6249916644566307`*^9}, {3.624991734315553*^9, 3.6249917439875703`*^9}, {
   3.62499372296692*^9, 3.6249937246205225`*^9}, {3.624997079521591*^9, 
   3.6249970808787937`*^9}, {3.6250077617914677`*^9, 
   3.6250077759426928`*^9}, {3.625008999154563*^9, 3.6250090079861784`*^9}, {
   3.625015173666581*^9, 3.6250151958382196`*^9}, {3.625015229396679*^9, 
   3.6250153110068235`*^9}, {3.6250166582175646`*^9, 3.6250166784528008`*^9}, 
   3.6253318751678247`*^9, {3.625419708224841*^9, 3.6254197312848735`*^9}, 
   3.6254208333328*^9, {3.625705929449239*^9, 3.625705933008045*^9}, {
   3.625708518567834*^9, 3.6257085324808583`*^9}, 3.625713527931981*^9, {
   3.680041873858699*^9, 3.680041881248122*^9}, {3.6800419682180967`*^9, 
   3.680041991656437*^9}, 3.6800423446076245`*^9, {3.6800427901841097`*^9, 
   3.680042794216341*^9}, {3.6800432450021243`*^9, 3.6800432744558086`*^9}, 
   3.6800434613474984`*^9, 3.680043517617717*^9, 3.6800444619847317`*^9, 
   3.6800446657113843`*^9, 3.6800447195714645`*^9, {3.6800449185618467`*^9, 
   3.6800449261502805`*^9}, 3.7061398580958233`*^9, {3.715463050454563*^9, 
   3.715463050826584*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545066651861928*^9, 
   3.5450666715919557`*^9}, {3.545067018472441*^9, 3.54506702505245*^9}, {
   3.5450672112627115`*^9, 3.5450672142727156`*^9}, {3.5474153416867237`*^9, 
   3.547415342965926*^9}, {3.575327678898259*^9, 3.5753276798782606`*^9}, {
   3.578688109525468*^9, 3.578688109745468*^9}, {3.5791314039196434`*^9, 
   3.5791314043496437`*^9}, {3.5970233602803164`*^9, 
   3.5970233606547165`*^9}, {3.602029453182803*^9, 3.602029453422803*^9}, {
   3.611960802461655*^9, 3.611960802721656*^9}, {3.6155071018281007`*^9, 
   3.6155071023881016`*^9}, 3.615507355198455*^9, {3.615507666678891*^9, 
   3.6155076666888914`*^9}, {3.6240635683046503`*^9, 3.624063571339655*^9}, {
   3.624064220709572*^9, 3.6240642213195724`*^9}, 3.624064257535624*^9, {
   3.6240662943845024`*^9, 3.6240662992245092`*^9}, 3.6240664735447583`*^9, {
   3.624076720043745*^9, 3.6240767390621786`*^9}, 3.6246510551183367`*^9, {
   3.6247385576502986`*^9, 3.624738582132699*^9}, {3.6247388448707266`*^9, 
   3.624738863743806*^9}, {3.6247389043281274`*^9, 3.624738904943163*^9}, 
   3.624739984733923*^9, {3.6249040774829507`*^9, 3.624904108159175*^9}, {
   3.624938229294053*^9, 3.624938263003981*^9}, {3.62498901238396*^9, 
   3.624989055611636*^9}, {3.6249915281481905`*^9, 3.624991528491391*^9}, 
   3.6249923628265963`*^9, 3.624993674164034*^9, {3.6249937105024977`*^9, 
   3.6249937147457056`*^9}, {3.625007732002015*^9, 3.6250077485450444`*^9}, {
   3.625009022509804*^9, 3.625009038517432*^9}, {3.6250150936430397`*^9, 
   3.625015134329911*^9}, 3.6250166270427094`*^9, {3.625419420854439*^9, 
   3.6254194211344395`*^9}, {3.625703975440093*^9, 3.6257039757520943`*^9}, 
   3.625704058224839*^9, 3.6800398548562193`*^9, 3.6800418873404703`*^9, {
   3.680041953964281*^9, 3.6800419539712815`*^9}, 3.680042795495414*^9, 
   3.6800434452205763`*^9, 3.680044676096978*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497663553088928*^9, 3.4976635622149444`*^9}, 
   3.4976651743061757`*^9, {3.4991317949832096`*^9, 3.4991317953032103`*^9}, {
   3.561226279503955*^9, 3.5612262831739607`*^9}, {3.5612263210940137`*^9, 
   3.5612263409240413`*^9}, {3.561227979331335*^9, 3.561227980911338*^9}, {
   3.561309917491729*^9, 3.561309917491729*^9}, {3.561422840120915*^9, 
   3.561422840120915*^9}, {3.5635826847702026`*^9, 3.5635826847702026`*^9}, {
   3.563597598999382*^9, 3.563597598999382*^9}, {3.5685979225051904`*^9, 
   3.5685979225051904`*^9}, {3.568598033195345*^9, 3.568598033195345*^9}, {
   3.5685988014464207`*^9, 3.5685988014464207`*^9}, {3.6253336096925116`*^9, 
   3.6253336104525127`*^9}, {3.6257040763716717`*^9, 3.6257040763716717`*^9}, 
   3.6800446793081617`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"g", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9}, 
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9, 
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9, 
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9, 
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9, 
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9}, {
   3.5037665202274017`*^9, 3.5037665301178193`*^9}, {3.503784584829901*^9, 
   3.5037845937599134`*^9}, 3.503792874433873*^9, 3.503792912183926*^9, {
   3.5037929644139996`*^9, 3.5037929747840137`*^9}, {3.5037931121242065`*^9, 
   3.503793113894209*^9}, {3.508371532525346*^9, 3.508371535395751*^9}, 
   3.5083724352425323`*^9, {3.508387207384492*^9, 3.5083872419697523`*^9}, {
   3.508387273341408*^9, 3.508387297958251*^9}, {3.5083883746317434`*^9, 
   3.5083883839449596`*^9}, {3.5084366732473497`*^9, 3.508436675117352*^9}, {
   3.5098473308987117`*^9, 3.5098473379687214`*^9}, {3.515168072474307*^9, 
   3.5151680753643117`*^9}, {3.5970233630883207`*^9, 3.597023373431139*^9}, {
   3.6155071026281013`*^9, 3.615507104368104*^9}, {3.6155073560584564`*^9, 
   3.6155073576384587`*^9}, {3.6155075708487573`*^9, 3.615507572158759*^9}, {
   3.6155076666888914`*^9, 3.615507666718891*^9}, {3.6240642251695786`*^9, 
   3.624064227909582*^9}, {3.6240642584956255`*^9, 3.6240642614656296`*^9}, 
   3.6240658070548134`*^9, {3.624066027264124*^9, 3.6240660576671667`*^9}, {
   3.6240662019173703`*^9, 3.6240662085373797`*^9}, {3.6240768799782257`*^9, 
   3.6240768911790457`*^9}, {3.624077580251856*^9, 3.6240775964632845`*^9}, {
   3.624738733244342*^9, 3.624738749038245*^9}, {3.6247388064515295`*^9, 
   3.624738816673114*^9}, {3.624739183829114*^9, 3.6247393190618486`*^9}, {
   3.6247396052432175`*^9, 3.62473963483191*^9}, {3.6249041109891796`*^9, 
   3.6249041253822746`*^9}, {3.624904157791504*^9, 3.624904174611601*^9}, 
   3.6249042295339704`*^9, {3.6249043031894817`*^9, 3.624904306299486*^9}, {
   3.6249891019281173`*^9, 3.6249891169821434`*^9}, {3.6249892334051485`*^9, 
   3.624989237835556*^9}, {3.624989271224266*^9, 3.6249892889889903`*^9}, {
   3.6249893316706653`*^9, 3.624989344103887*^9}, {3.6249894780145226`*^9, 
   3.6249894930217485`*^9}, {3.6249901868386965`*^9, 
   3.6249902119899406`*^9}, {3.6249904563265705`*^9, 
   3.6249904569037714`*^9}, {3.6249909893497076`*^9, 
   3.6249909964477205`*^9}, {3.6249910273065743`*^9, 
   3.6249911457223177`*^9}, {3.62499139712276*^9, 3.624991402114769*^9}, 
   3.6249916041711245`*^9, {3.624996983144622*^9, 3.6249969856874266`*^9}, {
   3.6250151558579493`*^9, 3.625015169759574*^9}, {3.625016643612939*^9, 
   3.6250166474817457`*^9}, {3.680041893404817*^9, 3.6800418973570433`*^9}, {
   3.6800419539822817`*^9, 3.6800419540002832`*^9}, {3.6800427964234667`*^9, 
   3.6800427970635033`*^9}, {3.680043445884614*^9, 3.6800434466606584`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.6249913513814793`*^9, 3.624991353986684*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"csc", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"g", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "p"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csc", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "e", ",", "f", ",", "g", ",", "m", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9, 
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9, 
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9, 
   3.5036056404067173`*^9}, {3.5036056742667646`*^9, 
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9}, 
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9, 
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9, 
   3.5037659012749257`*^9}, 3.503770483271969*^9, {3.5037705316120367`*^9, 
   3.503770532712038*^9}, {3.5037848128502207`*^9, 3.5037848148402233`*^9}, 
   3.5037933043644753`*^9, 3.5037933665145626`*^9, {3.505409020953904*^9, 
   3.505409026163912*^9}, 3.5054105939761066`*^9, 3.508372762624707*^9, 
   3.5083845812933245`*^9, 3.5083874261128764`*^9, {3.5083875565291057`*^9, 
   3.5083875612559137`*^9}, {3.5083877888603134`*^9, 3.5083877965043273`*^9}, 
   3.5083879224433484`*^9, {3.508387967324627*^9, 3.5083879846094575`*^9}, 
   3.5083883263808584`*^9, {3.508388399654187*^9, 3.5083884327574453`*^9}, {
   3.5084366760673532`*^9, 3.5084366786773567`*^9}, {3.509847339118723*^9, 
   3.5098473444287305`*^9}, {3.544983257475173*^9, 3.5449832624351807`*^9}, {
   3.545067265222787*^9, 3.5450672680027905`*^9}, {3.5474155937223644`*^9, 
   3.5474155944243655`*^9}, {3.5970233776431465`*^9, 
   3.5970234209644227`*^9}, {3.6155071454081616`*^9, 
   3.6155071454281616`*^9}, {3.615507178588208*^9, 3.615507178598208*^9}, 
   3.615507245148301*^9, {3.615507382608494*^9, 3.6155073833884945`*^9}, 
   3.615507459978602*^9, {3.6155075764887652`*^9, 3.6155075818287725`*^9}, {
   3.6155077095189514`*^9, 3.6155077095389514`*^9}, {3.6155077496690073`*^9, 
   3.6155077496790075`*^9}, 3.61550782272911*^9, {3.6240642304595857`*^9, 
   3.62406423346959*^9}, {3.624064265195635*^9, 3.624064269531641*^9}, {
   3.624066532754841*^9, 3.624066586584917*^9}, {3.6240769696003833`*^9, 
   3.624076996978431*^9}, 3.6240776699092135`*^9, {3.6247394980080843`*^9, 
   3.624739562065748*^9}, {3.6247397236889925`*^9, 3.6247397644353228`*^9}, {
   3.6249041166352234`*^9, 3.6249041181352267`*^9}, {3.6249043339486694`*^9, 
   3.624904386824047*^9}, {3.624938279698936*^9, 3.6249382876593914`*^9}, 
   3.6249912905997725`*^9, 3.6249913579334908`*^9, {3.624991638121784*^9, 
   3.6249916644566307`*^9}, {3.624991734315553*^9, 3.6249917439875703`*^9}, {
   3.62499372296692*^9, 3.6249937246205225`*^9}, {3.624997079521591*^9, 
   3.6249970808787937`*^9}, {3.6250077617914677`*^9, 
   3.6250077759426928`*^9}, {3.625008999154563*^9, 3.6250090079861784`*^9}, {
   3.625015173666581*^9, 3.6250151958382196`*^9}, {3.625015229396679*^9, 
   3.6250153110068235`*^9}, {3.6250166582175646`*^9, 3.6250166784528008`*^9}, 
   3.6253318751678247`*^9, {3.6254194297844515`*^9, 3.6254194333044567`*^9}, {
   3.625703981118503*^9, 3.6257039857361116`*^9}, 3.625704037693203*^9, {
   3.6800419152620673`*^9, 3.6800419243825893`*^9}, {3.6800419683101015`*^9, 
   3.6800419916794386`*^9}, 3.6800423462307177`*^9, {3.6800428079191246`*^9, 
   3.6800428122303715`*^9}, {3.6800432482233086`*^9, 3.680043276125904*^9}, 
   3.680043533301614*^9, {3.6800446847234716`*^9, 3.6800447003803673`*^9}, 
   3.712337791463595*^9, 3.7155496105420876`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}],

Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.5758553923824325`*^9, 
   3.5758553923824325`*^9}, {3.5758554525725164`*^9, 
   3.5758554525725164`*^9}, {3.5758555750526876`*^9, 
   3.5758555750526876`*^9}, {3.5758556596228065`*^9, 
   3.5758556596228065`*^9}, {3.575855725612899*^9, 3.575855725612899*^9}, {
   3.575855810993018*^9, 3.575855810993018*^9}, {3.57585588373312*^9, 
   3.57585588374312*^9}, {3.5758560310833263`*^9, 3.5758560310833263`*^9}, {
   3.5758561273734612`*^9, 3.5758561273734612`*^9}, {3.5758565422515745`*^9, 
   3.5758565422515745`*^9}, {3.5758567480518627`*^9, 
   3.5758567480518627`*^9}, {3.597105294762822*^9, 3.597105330137873*^9}, {
   3.625701018598903*^9, 3.625701019258904*^9}, {3.6773587094543767`*^9, 
   3.6773587094543767`*^9}, {3.6800398938244476`*^9, 3.680039905039089*^9}, {
   3.680041433441509*^9, 3.680041433441509*^9}, {3.6800414830903482`*^9, 
   3.6800414830903482`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["x:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
      "\[And]", " ", 
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545066651861928*^9, 
   3.5450666715919557`*^9}, {3.545067018472441*^9, 3.54506702505245*^9}, {
   3.5450672112627115`*^9, 3.5450672142727156`*^9}, {3.5474153416867237`*^9, 
   3.547415342965926*^9}, {3.575327678898259*^9, 3.5753276798782606`*^9}, {
   3.578688109525468*^9, 3.578688109745468*^9}, {3.5791314039196434`*^9, 
   3.5791314043496437`*^9}, {3.5970233602803164`*^9, 
   3.5970233606547165`*^9}, {3.602029453182803*^9, 3.602029453422803*^9}, {
   3.611960802461655*^9, 3.611960802721656*^9}, {3.6155071018281007`*^9, 
   3.6155071023881016`*^9}, 3.615507355198455*^9, {3.615507666678891*^9, 
   3.6155076666888914`*^9}, {3.6240635683046503`*^9, 3.624063571339655*^9}, {
   3.624064220709572*^9, 3.6240642213195724`*^9}, 3.624064257535624*^9, {
   3.6240662943845024`*^9, 3.6240662992245092`*^9}, 3.6240664735447583`*^9, {
   3.624076720043745*^9, 3.6240767390621786`*^9}, 3.6246510551183367`*^9, {
   3.6247385576502986`*^9, 3.624738582132699*^9}, {3.6247388448707266`*^9, 
   3.624738863743806*^9}, {3.6247389043281274`*^9, 3.624738904943163*^9}, 
   3.624739984733923*^9, {3.6249040774829507`*^9, 3.624904108159175*^9}, {
   3.624938229294053*^9, 3.624938263003981*^9}, {3.62498901238396*^9, 
   3.624989055611636*^9}, {3.6249915281481905`*^9, 3.624991528491391*^9}, 
   3.6249923628265963`*^9, 3.624993674164034*^9, {3.6249937105024977`*^9, 
   3.6249937147457056`*^9}, {3.625007732002015*^9, 3.6250077485450444`*^9}, {
   3.625009022509804*^9, 3.625009038517432*^9}, {3.6250150936430397`*^9, 
   3.625015134329911*^9}, 3.6250166270427094`*^9, {3.6254194422844687`*^9, 
   3.6254194425344696`*^9}, {3.625420774632717*^9, 3.625420797362749*^9}, {
   3.6254208634428415`*^9, 3.6254208840028706`*^9}, 3.625436295686447*^9, {
   3.625436581504848*^9, 3.6254366062848825`*^9}, 3.6254505825333376`*^9, {
   3.6254509833114433`*^9, 3.6254510132810955`*^9}, {3.6254511257174935`*^9, 
   3.625451136122712*^9}, {3.6254515191871743`*^9, 3.6254515197331753`*^9}, {
   3.6254529986327057`*^9, 3.625453028695958*^9}, {3.6254552303064933`*^9, 
   3.625455232240896*^9}, {3.6255223460270767`*^9, 3.6255223460270767`*^9}, {
   3.625701361123521*^9, 3.625701381330556*^9}, {3.625701453108683*^9, 
   3.625701453108683*^9}, {3.6800399520677795`*^9, 3.6800399524668016`*^9}, 
   3.6800400289561768`*^9, {3.680040109448781*^9, 3.6800401101748223`*^9}, 
   3.6800402433324385`*^9, {3.680040300806726*^9, 3.680040301839785*^9}, 
   3.680040335404705*^9, {3.6800403922929583`*^9, 3.68004039283599*^9}, {
   3.6800404982600193`*^9, 3.680040523081439*^9}, 3.6800414369347086`*^9, {
   3.6800414864365396`*^9, 3.6800414984492273`*^9}, {3.680045095277954*^9, 
   3.680045095503967*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic normalization\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195735646524`*^9}, {3.6254209175129175`*^9, 
   3.6254209225929246`*^9}, {3.62545064649945*^9, 3.6254506568890686`*^9}, 
   3.625450951438587*^9, {3.680040534550095*^9, 3.68004054390163*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", "z", "]"}]}]}], ")"}], "m"], "\[Equal]", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"a", " ", 
        RowBox[{"Cos", "[", "z", "]"}]}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"Cos", "[", "z", "]"}], "m"]]}]],
  CellChangeTimes->{{3.625419592524679*^9, 3.6254196174447145`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195840446672`*^9}, 3.6254196237847233`*^9, {3.625420997433029*^9, 
   3.625420997433029*^9}, {3.6254366509169455`*^9, 3.6254366509169455`*^9}, {
   3.625436702469018*^9, 3.625436702469018*^9}, {3.625450747797428*^9, 
   3.625450747797428*^9}, {3.6257014304036417`*^9, 3.6257014304036417`*^9}, {
   3.6800400373606577`*^9, 3.6800400378676863`*^9}, {3.68004011083286*^9, 
   3.680040111264885*^9}, {3.6800402439444733`*^9, 3.680040244424501*^9}, {
   3.68004030280084*^9, 3.680040303479879*^9}, {3.6800403934360237`*^9, 
   3.6800403940040565`*^9}, {3.680040660641307*^9, 3.680040672000957*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.6250186609965053`*^9, 3.6250186609965053`*^9}, {3.6254208158027754`*^9, 
   3.6254208158027754`*^9}, {3.62543801821668*^9, 3.62543801821668*^9}, {
   3.625439001885415*^9, 3.625439001885415*^9}, {3.6254393563229175`*^9, 
   3.6254393563229175`*^9}, {3.625439727649768*^9, 3.625439727649768*^9}, {
   3.625451998806219*^9, 3.625451998806219*^9}, {3.6257014547716866`*^9, 
   3.6257014547716866`*^9}, {3.680040303991908*^9, 3.680040303992908*^9}, {
   3.680040394652094*^9, 3.680040394652094*^9}, {3.6800405288527694`*^9, 
   3.6800405288527694`*^9}, {3.6800415041215515`*^9, 3.6800415041215515`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"g", " ", 
            RowBox[{"Csc", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", "+", 
            RowBox[{"a", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"]}], 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "m"]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9}, 
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9, 
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9, 
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9, 
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9, 
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9}, {
   3.5037665202274017`*^9, 3.5037665301178193`*^9}, {3.503784584829901*^9, 
   3.5037845937599134`*^9}, 3.503792874433873*^9, 3.503792912183926*^9, {
   3.5037929644139996`*^9, 3.5037929747840137`*^9}, {3.5037931121242065`*^9, 
   3.503793113894209*^9}, {3.508371532525346*^9, 3.508371535395751*^9}, 
   3.5083724352425323`*^9, {3.508387207384492*^9, 3.5083872419697523`*^9}, {
   3.508387273341408*^9, 3.508387297958251*^9}, {3.5083883746317434`*^9, 
   3.5083883839449596`*^9}, {3.5084366732473497`*^9, 3.508436675117352*^9}, {
   3.5098473308987117`*^9, 3.5098473379687214`*^9}, {3.515168072474307*^9, 
   3.5151680753643117`*^9}, {3.5970233630883207`*^9, 3.597023373431139*^9}, {
   3.6155071026281013`*^9, 3.615507104368104*^9}, {3.6155073560584564`*^9, 
   3.6155073576384587`*^9}, {3.6155075708487573`*^9, 3.615507572158759*^9}, {
   3.6155076666888914`*^9, 3.615507666718891*^9}, {3.6240642251695786`*^9, 
   3.624064227909582*^9}, {3.6240642584956255`*^9, 3.6240642614656296`*^9}, 
   3.6240658070548134`*^9, {3.624066027264124*^9, 3.6240660576671667`*^9}, {
   3.6240662019173703`*^9, 3.6240662085373797`*^9}, {3.6240768799782257`*^9, 
   3.6240768911790457`*^9}, {3.624077580251856*^9, 3.6240775964632845`*^9}, {
   3.624738733244342*^9, 3.624738749038245*^9}, {3.6247388064515295`*^9, 
   3.624738816673114*^9}, {3.624739183829114*^9, 3.6247393190618486`*^9}, {
   3.6247396052432175`*^9, 3.62473963483191*^9}, {3.6249041109891796`*^9, 
   3.6249041253822746`*^9}, {3.624904157791504*^9, 3.624904174611601*^9}, 
   3.6249042295339704`*^9, {3.6249043031894817`*^9, 3.624904306299486*^9}, {
   3.6249891019281173`*^9, 3.6249891169821434`*^9}, {3.6249892334051485`*^9, 
   3.624989237835556*^9}, {3.624989271224266*^9, 3.6249892889889903`*^9}, {
   3.6249893316706653`*^9, 3.624989344103887*^9}, {3.6249894780145226`*^9, 
   3.6249894930217485`*^9}, {3.6249901868386965`*^9, 
   3.6249902119899406`*^9}, {3.6249904563265705`*^9, 
   3.6249904569037714`*^9}, {3.6249909893497076`*^9, 
   3.6249909964477205`*^9}, {3.6249910273065743`*^9, 
   3.6249911457223177`*^9}, {3.62499139712276*^9, 3.624991402114769*^9}, 
   3.6249916041711245`*^9, {3.624996983144622*^9, 3.6249969856874266`*^9}, {
   3.6250151558579493`*^9, 3.625015169759574*^9}, {3.625016643612939*^9, 
   3.6250166474817457`*^9}, {3.625419451484482*^9, 3.625419533554597*^9}, 
   3.625419615144711*^9, 3.62542091226291*^9, {3.625436581534848*^9, 
   3.6254366063248825`*^9}, {3.6254366645209646`*^9, 3.625436670460973*^9}, {
   3.6254367123490314`*^9, 3.6254367134590335`*^9}, {3.625436760431099*^9, 
   3.6254367620311017`*^9}, {3.6254505833289385`*^9, 
   3.6254505838437395`*^9}, {3.6254506701490917`*^9, 3.625450719590579*^9}, {
   3.625450772478672*^9, 3.6254508190955544`*^9}, {3.6254508528248134`*^9, 
   3.625450883790868*^9}, 3.625451026135518*^9, {3.625701363146525*^9, 
   3.6257014146056137`*^9}, {3.680040042413947*^9, 3.680040050389403*^9}, {
   3.6800401117839146`*^9, 3.680040113893035*^9}, {3.6800402449735327`*^9, 
   3.6800402464616175`*^9}, {3.680040304655946*^9, 3.680040306701063*^9}, {
   3.6800403450612574`*^9, 3.680040347997425*^9}, {3.680040395189124*^9, 
   3.680040396525201*^9}, {3.6800407033197484`*^9, 3.6800407393138075`*^9}, {
   3.680041437919765*^9, 3.680041438799815*^9}, {3.680041507556748*^9, 
   3.6800415081967845`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.6249913513814793`*^9, 3.624991353986684*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"g_.", "*", 
         RowBox[{"sec", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"csc", "[", 
           RowBox[{"e_.", "+", 
            RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}]}], 
     ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"g", "*", 
          RowBox[{"Sec", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "p"}], "*", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "+", 
           RowBox[{"a", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "/", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}], "^", "m"}]}]}], ",", "x"}], 
     "]"}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "g", ",", "p"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"Not", "[", 
      RowBox[{"IntegerQ", "[", "p", "]"}], "]"}], " ", "&&", " ", 
     RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9, 
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9, 
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9, 
   3.5036056404067173`*^9}, {3.5036056742667646`*^9, 
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9}, 
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9, 
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9, 
   3.5037659012749257`*^9}, 3.503770483271969*^9, {3.5037705316120367`*^9, 
   3.503770532712038*^9}, {3.5037848128502207`*^9, 3.5037848148402233`*^9}, 
   3.5037933043644753`*^9, 3.5037933665145626`*^9, {3.505409020953904*^9, 
   3.505409026163912*^9}, 3.5054105939761066`*^9, 3.508372762624707*^9, 
   3.5083845812933245`*^9, 3.5083874261128764`*^9, {3.5083875565291057`*^9, 
   3.5083875612559137`*^9}, {3.5083877888603134`*^9, 3.5083877965043273`*^9}, 
   3.5083879224433484`*^9, {3.508387967324627*^9, 3.5083879846094575`*^9}, 
   3.5083883263808584`*^9, {3.508388399654187*^9, 3.5083884327574453`*^9}, {
   3.5084366760673532`*^9, 3.5084366786773567`*^9}, {3.509847339118723*^9, 
   3.5098473444287305`*^9}, {3.544983257475173*^9, 3.5449832624351807`*^9}, {
   3.545067265222787*^9, 3.5450672680027905`*^9}, {3.5474155937223644`*^9, 
   3.5474155944243655`*^9}, {3.5970233776431465`*^9, 
   3.5970234209644227`*^9}, {3.6155071454081616`*^9, 
   3.6155071454281616`*^9}, {3.615507178588208*^9, 3.615507178598208*^9}, 
   3.615507245148301*^9, {3.615507382608494*^9, 3.6155073833884945`*^9}, 
   3.615507459978602*^9, {3.6155075764887652`*^9, 3.6155075818287725`*^9}, {
   3.6155077095189514`*^9, 3.6155077095389514`*^9}, {3.6155077496690073`*^9, 
   3.6155077496790075`*^9}, 3.61550782272911*^9, {3.6240642304595857`*^9, 
   3.62406423346959*^9}, {3.624064265195635*^9, 3.624064269531641*^9}, {
   3.624066532754841*^9, 3.624066586584917*^9}, {3.6240769696003833`*^9, 
   3.624076996978431*^9}, 3.6240776699092135`*^9, {3.6247394980080843`*^9, 
   3.624739562065748*^9}, {3.6247397236889925`*^9, 3.6247397644353228`*^9}, {
   3.6249041166352234`*^9, 3.6249041181352267`*^9}, {3.6249043339486694`*^9, 
   3.624904386824047*^9}, {3.624938279698936*^9, 3.6249382876593914`*^9}, 
   3.6249912905997725`*^9, 3.6249913579334908`*^9, {3.624991638121784*^9, 
   3.6249916644566307`*^9}, {3.624991734315553*^9, 3.6249917439875703`*^9}, {
   3.62499372296692*^9, 3.6249937246205225`*^9}, {3.624997079521591*^9, 
   3.6249970808787937`*^9}, {3.6250077617914677`*^9, 
   3.6250077759426928`*^9}, {3.625008999154563*^9, 3.6250090079861784`*^9}, {
   3.625015173666581*^9, 3.6250151958382196`*^9}, {3.625015229396679*^9, 
   3.6250153110068235`*^9}, {3.6250166582175646`*^9, 3.6250166784528008`*^9}, 
   3.6253318751678247`*^9, {3.625419708224841*^9, 3.6254197312848735`*^9}, 
   3.6254208333328*^9, 3.625420895132886*^9, {3.6254210246370683`*^9, 
   3.6254210499871035`*^9}, {3.6254368123891726`*^9, 
   3.6254368587932377`*^9}, {3.625436958021377*^9, 3.625436961173382*^9}, {
   3.625436996342924*^9, 3.6254370489969997`*^9}, 3.6254370819170456`*^9, {
   3.6254510625031824`*^9, 3.6254510748740044`*^9}, {3.6254511088226643`*^9, 
   3.625451115608676*^9}, {3.625454118948203*^9, 3.625454119650204*^9}, {
   3.62570146807371*^9, 3.625701539068834*^9}, {3.680040054201621*^9, 
   3.680040065975294*^9}, {3.680040126969783*^9, 3.68004014737595*^9}, {
   3.680040247297665*^9, 3.6800402685588813`*^9}, {3.6800403102792673`*^9, 
   3.6800403163266134`*^9}, {3.6800403531367188`*^9, 
   3.6800403616072035`*^9}, {3.680040397105234*^9, 3.680040398854334*^9}, 
   3.680040993248331*^9, {3.6800410427361617`*^9, 3.6800410950471535`*^9}, {
   3.6800414467902727`*^9, 3.680041448310359*^9}, {3.680041525934799*^9, 
   3.680041537366453*^9}, {3.680041639354286*^9, 3.680041641500409*^9}, {
   3.68004510272738*^9, 3.68004512475964*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", " ", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.527359904961545*^9, 3.527359905959947*^9}, {3.5326425332730722`*^9, 
   3.532642533473073*^9}, {3.5326427746632795`*^9, 3.53264277491288*^9}, {
   3.5326584214048853`*^9, 3.5326584216348853`*^9}, {3.5327156387673616`*^9, 
   3.5327156467558184`*^9}, {3.532715729333542*^9, 3.53271573123365*^9}, 
   3.5328460582169604`*^9, {3.5328745920833416`*^9, 3.5328746294142075`*^9}, {
   3.532875067275776*^9, 3.532875067650177*^9}, {3.532875139909504*^9, 
   3.532875150829523*^9}, {3.537656121233163*^9, 3.537656121443164*^9}, 
   3.540263906712819*^9, {3.5402639787229204`*^9, 3.5402639788829203`*^9}, {
   3.540319178473138*^9, 3.5403191846574917`*^9}, {3.540319223359705*^9, 
   3.5403192458899937`*^9}, {3.5403196532852955`*^9, 
   3.5403196542853527`*^9}, {3.5404234472634363`*^9, 
   3.5404234474974365`*^9}, {3.5404266413502464`*^9, 3.540426641755847*^9}, {
   3.540427707752519*^9, 3.5404277079553194`*^9}, {3.544238816041692*^9, 
   3.544238816041692*^9}, {3.544972902988535*^9, 3.544972921755368*^9}, 
   3.5449740982158346`*^9, 3.5449744158947926`*^9, {3.5449778031390886`*^9, 
   3.5449778251343465`*^9}, {3.54499756760699*^9, 3.5449975737066*^9}, {
   3.544998829914407*^9, 3.544998830117207*^9}, {3.545066651861928*^9, 
   3.5450666715919557`*^9}, {3.545067018472441*^9, 3.54506702505245*^9}, {
   3.5450672112627115`*^9, 3.5450672142727156`*^9}, {3.5474153416867237`*^9, 
   3.547415342965926*^9}, {3.575327678898259*^9, 3.5753276798782606`*^9}, {
   3.578688109525468*^9, 3.578688109745468*^9}, {3.5791314039196434`*^9, 
   3.5791314043496437`*^9}, {3.5970233602803164`*^9, 
   3.5970233606547165`*^9}, {3.602029453182803*^9, 3.602029453422803*^9}, {
   3.611960802461655*^9, 3.611960802721656*^9}, {3.6155071018281007`*^9, 
   3.6155071023881016`*^9}, 3.615507355198455*^9, {3.615507666678891*^9, 
   3.6155076666888914`*^9}, {3.6240635683046503`*^9, 3.624063571339655*^9}, {
   3.624064220709572*^9, 3.6240642213195724`*^9}, 3.624064257535624*^9, {
   3.6240662943845024`*^9, 3.6240662992245092`*^9}, 3.6240664735447583`*^9, {
   3.624076720043745*^9, 3.6240767390621786`*^9}, 3.6246510551183367`*^9, {
   3.6247385576502986`*^9, 3.624738582132699*^9}, {3.6247388448707266`*^9, 
   3.624738863743806*^9}, {3.6247389043281274`*^9, 3.624738904943163*^9}, 
   3.624739984733923*^9, {3.6249040774829507`*^9, 3.624904108159175*^9}, {
   3.624938229294053*^9, 3.624938263003981*^9}, {3.62498901238396*^9, 
   3.624989055611636*^9}, {3.6249915281481905`*^9, 3.624991528491391*^9}, 
   3.6249923628265963`*^9, 3.624993674164034*^9, {3.6249937105024977`*^9, 
   3.6249937147457056`*^9}, {3.625007732002015*^9, 3.6250077485450444`*^9}, {
   3.625009022509804*^9, 3.625009038517432*^9}, {3.6250150936430397`*^9, 
   3.625015134329911*^9}, 3.6250166270427094`*^9, {3.6254194422844687`*^9, 
   3.6254194425344696`*^9}, {3.625420774632717*^9, 3.625420797362749*^9}, {
   3.6254208634428415`*^9, 3.6254208840028706`*^9}, 3.625436295686447*^9, {
   3.625436581504848*^9, 3.6254366062848825`*^9}, 3.6254505825333376`*^9, {
   3.6254509833114433`*^9, 3.6254510132810955`*^9}, {3.6254511257174935`*^9, 
   3.625451136122712*^9}, {3.6254515191871743`*^9, 3.6254515197331753`*^9}, {
   3.6254529986327057`*^9, 3.625453028695958*^9}, {3.6254552303064933`*^9, 
   3.625455232240896*^9}, {3.6255223460270767`*^9, 3.6255223460270767`*^9}, {
   3.625701361123521*^9, 3.625701381330556*^9}, {3.625701453108683*^9, 
   3.625701453108683*^9}, {3.6800399520677795`*^9, 3.6800399524668016`*^9}, 
   3.6800400289561768`*^9, {3.680040109448781*^9, 3.6800401101748223`*^9}, 
   3.6800402433324385`*^9, {3.680040300806726*^9, 3.680040301839785*^9}, 
   3.680040335404705*^9, {3.6800403922929583`*^9, 3.68004039283599*^9}, 
   3.680041449127406*^9, {3.6800415421487265`*^9, 3.6800415510492353`*^9}, {
   3.680045131695037*^9, 3.680045131909049*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195735646524`*^9}, {3.6254209175129175`*^9, 
   3.6254209225929246`*^9}, {3.62545064649945*^9, 3.6254506568890686`*^9}, 
   3.625450951438587*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"g", " ", 
         RowBox[{"Csc", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], "p"]}], ")"}]}], "\[Equal]", "0"}]],
  CellChangeTimes->{{3.625419592524679*^9, 3.6254196174447145`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.625015147355934*^9, 3.6250151480735354`*^9}, {3.6254195522246227`*^9, 
   3.6254195840446672`*^9}, 3.6254196237847233`*^9, {3.625420997433029*^9, 
   3.625420997433029*^9}, {3.6254366509169455`*^9, 3.6254366509169455`*^9}, {
   3.625436702469018*^9, 3.625436702469018*^9}, {3.625450747797428*^9, 
   3.625450747797428*^9}, {3.6257014304036417`*^9, 3.6257014304036417`*^9}, {
   3.6800400373606577`*^9, 3.6800400378676863`*^9}, {3.68004011083286*^9, 
   3.680040111264885*^9}, {3.6800402439444733`*^9, 3.680040244424501*^9}, {
   3.68004030280084*^9, 3.680040303479879*^9}, {3.6800403934360237`*^9, 
   3.6800403940040565`*^9}, {3.680041450057459*^9, 3.680041450537487*^9}, {
   3.68004155811364*^9, 3.680041562256877*^9}, {3.7047574969511275`*^9, 
   3.7047574969511275`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9, 
   3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
   3.4976647966763124`*^9, 3.497664832415975*^9}, 3.497664903037299*^9, {
   3.497665001317472*^9, 3.4976650255131145`*^9}, {3.4986778951385884`*^9, 
   3.4986779035186005`*^9}, {3.4986779431286554`*^9, 
   3.4986779431286554`*^9}, {3.498773043878818*^9, 3.4987730460988207`*^9}, {
   3.4988813641905975`*^9, 3.4988813641905975`*^9}, {3.499181685919475*^9, 
   3.499181686418676*^9}, {3.4991988186404686`*^9, 3.49919881954527*^9}, {
   3.501179210841673*^9, 3.501179210841673*^9}, {3.501267255160894*^9, 
   3.5012672581208982`*^9}, {3.50180714999329*^9, 3.501807152785694*^9}, {
   3.5018072136414013`*^9, 3.5018072171202073`*^9}, {3.5018143356243105`*^9, 
   3.501814336544712*^9}, {3.501821741404519*^9, 3.501821741404519*^9}, {
   3.501904374065234*^9, 3.5019043749232354`*^9}, {3.5020738106262097`*^9, 
   3.502073826787838*^9}, {3.502074080168284*^9, 3.502074080636285*^9}, {
   3.5020742717990203`*^9, 3.502074305073879*^9}, {3.503687809691985*^9, 
   3.5036878202819996`*^9}, {3.5036910540785284`*^9, 3.503691064608543*^9}, {
   3.5036914578790936`*^9, 3.5036914589290953`*^9}, {3.50377059129212*^9, 
   3.50377059129212*^9}, {3.5037747966780715`*^9, 3.5037747966780715`*^9}, {
   3.503777187954526*^9, 3.503777187954526*^9}, {3.5077488424351263`*^9, 
   3.5077488432051277`*^9}, {3.508371510420107*^9, 3.508371511387309*^9}, {
   3.508372634392482*^9, 3.508372665810937*^9}, 3.508387767004675*^9, {
   3.5084342353439364`*^9, 3.508434235593937*^9}, {3.513377386932716*^9, 
   3.5133773873427167`*^9}, {3.6240663369665623`*^9, 
   3.6240663369665623`*^9}, {3.6240769659187765`*^9, 
   3.6240769659187765`*^9}, {3.624738673904948*^9, 3.6247386739059477`*^9}, {
   3.6247389136136584`*^9, 3.6247389136136584`*^9}, {3.6249382717474813`*^9, 
   3.6249382717474813`*^9}, {3.6249890712272635`*^9, 
   3.6249890712272635`*^9}, {3.624991531704997*^9, 3.624991531704997*^9}, {
   3.6249937198781147`*^9, 3.6249937198781147`*^9}, {3.62500775745266*^9, 
   3.62500775745266*^9}, {3.625009044227042*^9, 3.625009044227042*^9}, {
   3.6250186609965053`*^9, 3.6250186609965053`*^9}, {3.6254208158027754`*^9, 
   3.6254208158027754`*^9}, {3.62543801821668*^9, 3.62543801821668*^9}, {
   3.625439001885415*^9, 3.625439001885415*^9}, {3.6254393563229175`*^9, 
   3.6254393563229175`*^9}, {3.625439727649768*^9, 3.625439727649768*^9}, {
   3.625451998806219*^9, 3.625451998806219*^9}, {3.6257014547716866`*^9, 
   3.6257014547716866`*^9}, {3.680040303991908*^9, 3.680040303992908*^9}, {
   3.680040394652094*^9, 3.680040394652094*^9}, {3.6800415639689746`*^9, 
   3.6800415639689746`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "p"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox["g", 
      RowBox[{"IntPart", "[", "p", "]"}]]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", " ", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
    RowBox[{"FracPart", "[", "p", "]"}]], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"FracPart", "[", "p", "]"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Sec", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "m"], 
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], "p"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497640159702445*^9, 3.4976401723852673`*^9}, 
   3.497921629815009*^9, 3.4979233569096427`*^9, 3.500664339792617*^9, 
   3.500665314513982*^9, {3.5036053897063665`*^9, 3.5036054156964025`*^9}, {
   3.503606914958502*^9, 3.503606928418521*^9}, {3.503609780242513*^9, 
   3.5036097974425373`*^9}, {3.503610197873098*^9, 3.5036102097631145`*^9}, {
   3.5036839785995874`*^9, 3.5036840357268877`*^9}, {3.5036842638460884`*^9, 
   3.5036842678708954`*^9}, 3.5037651801466703`*^9, 3.503765279376809*^9, 
   3.503765316726862*^9, {3.5037658800248957`*^9, 3.503765895744918*^9}, {
   3.5037665202274017`*^9, 3.5037665301178193`*^9}, {3.503784584829901*^9, 
   3.5037845937599134`*^9}, 3.503792874433873*^9, 3.503792912183926*^9, {
   3.5037929644139996`*^9, 3.5037929747840137`*^9}, {3.5037931121242065`*^9, 
   3.503793113894209*^9}, {3.508371532525346*^9, 3.508371535395751*^9}, 
   3.5083724352425323`*^9, {3.508387207384492*^9, 3.5083872419697523`*^9}, {
   3.508387273341408*^9, 3.508387297958251*^9}, {3.5083883746317434`*^9, 
   3.5083883839449596`*^9}, {3.5084366732473497`*^9, 3.508436675117352*^9}, {
   3.5098473308987117`*^9, 3.5098473379687214`*^9}, {3.515168072474307*^9, 
   3.5151680753643117`*^9}, {3.5970233630883207`*^9, 3.597023373431139*^9}, {
   3.6155071026281013`*^9, 3.615507104368104*^9}, {3.6155073560584564`*^9, 
   3.6155073576384587`*^9}, {3.6155075708487573`*^9, 3.615507572158759*^9}, {
   3.6155076666888914`*^9, 3.615507666718891*^9}, {3.6240642251695786`*^9, 
   3.624064227909582*^9}, {3.6240642584956255`*^9, 3.6240642614656296`*^9}, 
   3.6240658070548134`*^9, {3.624066027264124*^9, 3.6240660576671667`*^9}, {
   3.6240662019173703`*^9, 3.6240662085373797`*^9}, {3.6240768799782257`*^9, 
   3.6240768911790457`*^9}, {3.624077580251856*^9, 3.6240775964632845`*^9}, {
   3.624738733244342*^9, 3.624738749038245*^9}, {3.6247388064515295`*^9, 
   3.624738816673114*^9}, {3.624739183829114*^9, 3.6247393190618486`*^9}, {
   3.6247396052432175`*^9, 3.62473963483191*^9}, {3.6249041109891796`*^9, 
   3.6249041253822746`*^9}, {3.624904157791504*^9, 3.624904174611601*^9}, 
   3.6249042295339704`*^9, {3.6249043031894817`*^9, 3.624904306299486*^9}, {
   3.6249891019281173`*^9, 3.6249891169821434`*^9}, {3.6249892334051485`*^9, 
   3.624989237835556*^9}, {3.624989271224266*^9, 3.6249892889889903`*^9}, {
   3.6249893316706653`*^9, 3.624989344103887*^9}, {3.6249894780145226`*^9, 
   3.6249894930217485`*^9}, {3.6249901868386965`*^9, 
   3.6249902119899406`*^9}, {3.6249904563265705`*^9, 
   3.6249904569037714`*^9}, {3.6249909893497076`*^9, 
   3.6249909964477205`*^9}, {3.6249910273065743`*^9, 
   3.6249911457223177`*^9}, {3.62499139712276*^9, 3.624991402114769*^9}, 
   3.6249916041711245`*^9, {3.624996983144622*^9, 3.6249969856874266`*^9}, {
   3.6250151558579493`*^9, 3.625015169759574*^9}, {3.625016643612939*^9, 
   3.6250166474817457`*^9}, {3.625419451484482*^9, 3.625419533554597*^9}, 
   3.625419615144711*^9, 3.62542091226291*^9, {3.625436581534848*^9, 
   3.6254366063248825`*^9}, {3.6254366645209646`*^9, 3.625436670460973*^9}, {
   3.6254367123490314`*^9, 3.6254367134590335`*^9}, {3.625436760431099*^9, 
   3.6254367620311017`*^9}, {3.6254505833289385`*^9, 
   3.6254505838437395`*^9}, {3.6254506701490917`*^9, 3.625450719590579*^9}, {
   3.625450772478672*^9, 3.6254508190955544`*^9}, {3.6254508528248134`*^9, 
   3.625450883790868*^9}, 3.625451026135518*^9, {3.625701363146525*^9, 
   3.6257014146056137`*^9}, {3.680040042413947*^9, 3.680040050389403*^9}, {
   3.6800401117839146`*^9, 3.680040113893035*^9}, {3.6800402449735327`*^9, 
   3.6800402464616175`*^9}, {3.680040304655946*^9, 3.680040306701063*^9}, {
   3.6800403450612574`*^9, 3.680040347997425*^9}, {3.680040395189124*^9, 
   3.680040396525201*^9}, {3.680041451344533*^9, 3.6800414552057533`*^9}, {
   3.6800415686142406`*^9, 3.680041577141728*^9}, {3.7047575088383484`*^9, 
   3.704757510803952*^9}, {3.7047588680413465`*^9, 3.7047589020992064`*^9}, {
   3.7047591500368433`*^9, 3.7047591513784456`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.6249913513814793`*^9, 3.624991353986684*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "p_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"csc", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "m_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "^", 
     RowBox[{"IntPart", "[", "p", "]"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"g", "*", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"FracPart", "[", "p", "]"}]}], "*", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "^", 
     RowBox[{"FracPart", "[", "p", "]"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Csc", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "m"}], "/", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "^", "p"}]}], ",", "x"}], "]"}]}],
    " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "e", ",", "f", ",", "g", ",", "m", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "p", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.49764012271478*^9, 
   3.497921629815009*^9, 3.497923316770772*^9, {3.498846097266164*^9, 
   3.498846101431371*^9}, {3.4988483998038116`*^9, 3.498848403345018*^9}, {
   3.503114462071471*^9, 3.5031144646298757`*^9}, {3.503605637856714*^9, 
   3.5036056404067173`*^9}, {3.5036056742667646`*^9, 
   3.5036056882767844`*^9}, {3.503607614209481*^9, 3.503607619389488*^9}, 
   3.5036094305720234`*^9, {3.5036094863621016`*^9, 3.503609489492106*^9}, {
   3.503609866712634*^9, 3.503609867382635*^9}, {3.5036102208231297`*^9, 
   3.5036102468531666`*^9}, 3.5036191376208076`*^9, 3.5037657307246866`*^9, {
   3.5037657942347755`*^9, 3.503765842284843*^9}, {3.503765900684925*^9, 
   3.5037659012749257`*^9}, 3.503770483271969*^9, {3.5037705316120367`*^9, 
   3.503770532712038*^9}, {3.5037848128502207`*^9, 3.5037848148402233`*^9}, 
   3.5037933043644753`*^9, 3.5037933665145626`*^9, {3.505409020953904*^9, 
   3.505409026163912*^9}, 3.5054105939761066`*^9, 3.508372762624707*^9, 
   3.5083845812933245`*^9, 3.5083874261128764`*^9, {3.5083875565291057`*^9, 
   3.5083875612559137`*^9}, {3.5083877888603134`*^9, 3.5083877965043273`*^9}, 
   3.5083879224433484`*^9, {3.508387967324627*^9, 3.5083879846094575`*^9}, 
   3.5083883263808584`*^9, {3.508388399654187*^9, 3.5083884327574453`*^9}, {
   3.5084366760673532`*^9, 3.5084366786773567`*^9}, {3.509847339118723*^9, 
   3.5098473444287305`*^9}, {3.544983257475173*^9, 3.5449832624351807`*^9}, {
   3.545067265222787*^9, 3.5450672680027905`*^9}, {3.5474155937223644`*^9, 
   3.5474155944243655`*^9}, {3.5970233776431465`*^9, 
   3.5970234209644227`*^9}, {3.6155071454081616`*^9, 
   3.6155071454281616`*^9}, {3.615507178588208*^9, 3.615507178598208*^9}, 
   3.615507245148301*^9, {3.615507382608494*^9, 3.6155073833884945`*^9}, 
   3.615507459978602*^9, {3.6155075764887652`*^9, 3.6155075818287725`*^9}, {
   3.6155077095189514`*^9, 3.6155077095389514`*^9}, {3.6155077496690073`*^9, 
   3.6155077496790075`*^9}, 3.61550782272911*^9, {3.6240642304595857`*^9, 
   3.62406423346959*^9}, {3.624064265195635*^9, 3.624064269531641*^9}, {
   3.624066532754841*^9, 3.624066586584917*^9}, {3.6240769696003833`*^9, 
   3.624076996978431*^9}, 3.6240776699092135`*^9, {3.6247394980080843`*^9, 
   3.624739562065748*^9}, {3.6247397236889925`*^9, 3.6247397644353228`*^9}, {
   3.6249041166352234`*^9, 3.6249041181352267`*^9}, {3.6249043339486694`*^9, 
   3.624904386824047*^9}, {3.624938279698936*^9, 3.6249382876593914`*^9}, 
   3.6249912905997725`*^9, 3.6249913579334908`*^9, {3.624991638121784*^9, 
   3.6249916644566307`*^9}, {3.624991734315553*^9, 3.6249917439875703`*^9}, {
   3.62499372296692*^9, 3.6249937246205225`*^9}, {3.624997079521591*^9, 
   3.6249970808787937`*^9}, {3.6250077617914677`*^9, 
   3.6250077759426928`*^9}, {3.625008999154563*^9, 3.6250090079861784`*^9}, {
   3.625015173666581*^9, 3.6250151958382196`*^9}, {3.625015229396679*^9, 
   3.6250153110068235`*^9}, {3.6250166582175646`*^9, 3.6250166784528008`*^9}, 
   3.6253318751678247`*^9, {3.625419708224841*^9, 3.6254197312848735`*^9}, 
   3.6254208333328*^9, 3.625420895132886*^9, {3.6254210246370683`*^9, 
   3.6254210499871035`*^9}, {3.6254368123891726`*^9, 
   3.6254368587932377`*^9}, {3.625436958021377*^9, 3.625436961173382*^9}, {
   3.625436996342924*^9, 3.6254370489969997`*^9}, 3.6254370819170456`*^9, {
   3.6254510625031824`*^9, 3.6254510748740044`*^9}, {3.6254511088226643`*^9, 
   3.625451115608676*^9}, {3.625454118948203*^9, 3.625454119650204*^9}, {
   3.62570146807371*^9, 3.6257015953881197`*^9}, {3.6800400698815174`*^9, 
   3.68004008495938*^9}, {3.680040128809888*^9, 3.6800401643219194`*^9}, {
   3.6800402497768073`*^9, 3.680040274233206*^9}, {3.6800403171986637`*^9, 
   3.6800403220229397`*^9}, {3.6800403663134727`*^9, 3.680040400791445*^9}, 
   3.6800411066458173`*^9, {3.680041462695182*^9, 3.6800414654063373`*^9}, {
   3.6800415997050185`*^9, 3.680041624821455*^9}, {3.704757521848771*^9, 
   3.7047575265443797`*^9}, {3.704758925113247*^9, 3.704758942150477*^9}, {
   3.704759140364826*^9, 3.7047591442024326`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "g", " ", "sin", "(", "e", "+", "f", " ", "x", ")", 
      ")", "^", "p", " ", "(", "a", "+", "b", " ", "sec", "(", "e", "+", "f", 
      " ", "x", ")", ")", "^", "m"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{774, 597},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 7063, 114, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[7633, 138, 6152, 102, 53, "Subsubtitle"],
Cell[13788, 242, 3329, 45, 48, "Subsubsection"],
Cell[17120, 289, 4051, 70, 58, "Subsubsection"],
Cell[21174, 361, 3457, 51, 36, "Subsubsection"],
Cell[24634, 414, 5506, 100, 89, "Subsubtitle"],
Cell[30143, 516, 819, 11, 48, "Subsubsection"],
Cell[30965, 529, 5211, 100, 145, "Code"],
Cell[36179, 631, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[36305, 638, 3532, 63, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[39862, 705, 5136, 90, 74, "Subsubtitle"],
Cell[45001, 797, 478, 7, 48, "Subsubsection"],
Cell[45482, 806, 3046, 74, 74, "Subsubsection"],
Cell[48531, 882, 1862, 34, 54, "Subsubsection"],
Cell[50396, 918, 3226, 73, 110, "Subsubtitle"],
Cell[53625, 993, 771, 11, 48, "Subsubsection"],
Cell[54399, 1006, 4319, 101, 145, "Code"],
Cell[58721, 1109, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[58847, 1116, 5189, 91, 74, "Subsubtitle"],
Cell[64039, 1209, 478, 7, 48, "Subsubsection"],
Cell[64520, 1218, 2848, 64, 72, "Subsubsection"],
Cell[67371, 1284, 1915, 35, 54, "Subsubsection"],
Cell[69289, 1321, 3174, 71, 110, "Subsubtitle"],
Cell[72466, 1394, 771, 11, 48, "Subsubsection"],
Cell[73240, 1407, 4283, 98, 145, "Code"],
Cell[77526, 1507, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[77664, 1515, 6189, 97, 65, "Subsubtitle"],
Cell[83856, 1614, 3332, 47, 48, "Subsubsection"],
Cell[87191, 1663, 4017, 66, 64, "Subsubsection"],
Cell[91211, 1731, 4460, 81, 51, "Subsubsection"],
Cell[95674, 1814, 3423, 47, 34, "Subsubsection"],
Cell[99100, 1863, 5802, 108, 90, "Subsubtitle"],
Cell[104905, 1973, 819, 11, 48, "Subsubsection"],
Cell[105727, 1986, 5803, 111, 145, "Code"],
Cell[111533, 2099, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[111659, 2106, 6733, 114, 53, "Subsubtitle"],
Cell[118395, 2222, 3285, 45, 48, "Subsubsection"],
Cell[121683, 2269, 4217, 75, 58, "Subsubsection"],
Cell[125903, 2346, 3736, 61, 48, "Subsubsection"],
Cell[129642, 2409, 6165, 121, 89, "Subsubtitle"],
Cell[135810, 2532, 819, 11, 48, "Subsubsection"],
Cell[136632, 2545, 6547, 137, 180, "Code"],
Cell[143182, 2684, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[143308, 2691, 5832, 93, 53, "Subsubtitle"],
Cell[149143, 2786, 1605, 22, 48, "Subsubsection"],
Cell[150751, 2810, 5214, 92, 74, "Subsubtitle"],
Cell[155968, 2904, 819, 11, 48, "Subsubsection"],
Cell[156790, 2917, 5114, 95, 145, "Code"],
Cell[161907, 3014, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[162011, 3019, 89, 2, 25, "Subsubsection"],
Cell[162103, 3023, 7165, 116, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[169293, 3143, 7020, 115, 53, "Subsubtitle"],
Cell[176316, 3260, 3459, 49, 48, "Subsubsection"],
Cell[179778, 3311, 4423, 75, 58, "Subsubsection"],
Cell[184204, 3388, 3956, 59, 36, "Subsubsection"],
Cell[188163, 3449, 6242, 110, 89, "Subsubtitle"],
Cell[194408, 3561, 819, 11, 48, "Subsubsection"],
Cell[195230, 3574, 6111, 113, 145, "Code"],
Cell[201344, 3689, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[201470, 3696, 6859, 111, 53, "Subsubtitle"],
Cell[208332, 3809, 3412, 47, 48, "Subsubsection"],
Cell[211747, 3858, 4474, 73, 40, "Subsubsection"],
Cell[216224, 3933, 3808, 56, 36, "Subsubsection"],
Cell[220035, 3991, 6518, 118, 89, "Subsubtitle"],
Cell[226556, 4111, 819, 11, 48, "Subsubsection"],
Cell[227378, 4124, 6205, 119, 145, "Code"],
Cell[233586, 4245, 89, 2, 48, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)